Класс календаря., ООП Опции

[Egor Vladimirovich]

Самая первая задача.
То же самое, только наоборот: по времени и дате вычисляется другая дата.

В Дельфи,в консоле не смог откомпилировать.Ругаеться на Inc(DayInMonth[2], Byte((CurrYear mod 4) = 0));!!
Как это можно записать по другому???

[klem4]

И на какую же ошибку система тебе указывает ? У меня откомпилировалось нормально.

[мисс_граффити]

 DayInMonth[2]:=DayInMonth[2]+Byte((CurrYear mod 4) = 0)

если тоже не откомпилируется - напиши условный оператор.

[Egor Vladimirovich]

 DayInMonth[2]:=DayInMonth[2]+Byte((CurrYear mod 4) = 0)

если тоже не откомпилируется - напиши условный оператор.

Вот такая ошибка появляеться [Error] Project2.dpr(33): Left side cannot be assigned to

Я не понимаюююю! Помогите плз,завтра здавать,одной процедурки не хватает! (((

Сообщение отредактировано: Egor Vladimirovich - 9.11.2006 22:09

[мисс_граффити]

if ((CurrYear mod 4) = 0) then
DayInMonth[2]:=DayInMonth[2]+1

то есть если год високосный, делаем в феврале 29 дней.

кстати, по-моему, если год делится на 100, но не делится на 400 (ну например 1900, 1700) - он не високосный.

[Egor Vladimirovich]

2 мисс графити
откомпилировал,тока че то не разобрался как наоборот сделать( Я помоему дыбил)

[Алена]

по-моему, если год делится на 100, но не делится на 400 (ну например 1900, 1700) - он не високосный.

If ((CurrYear mod 4) = 0) and
     not (((CurrYear mod 100) = 0) and ((CurrYear mod 400) <> 0)) then Inc(DayInMonth[2]);

[Egor Vladimirovich]

Помогите кто нибудь мне написать процедуру Вычисления количества дней,между 2 датами!!!!!!!!!

[Malice]

Помогите кто нибудь мне написать процедуру Вычисления количества дней,между 2 датами!!!!!!!!!

Тебе нужна функция, переводящая дату в количество дней начиная с хз какой даты:

function days (y,m,d:integer):longint;
begin
if m<3 then begin dec (y); inc (m,12); end;
days:=round(int (y*365.25)+int ((m+1)*30.601)+d-int(y/100)+int (y/400));
end;

Для вычисления разницы между датами в самый раз.

[Гость]

Тебе нужна функция, переводящая дату в количество дней начиная с хз какой даты:

function days (y,m,d:integer):longint;
begin
if m<3 then begin dec (y); inc (m,12); end;
days:=round(int (y*365.25)+int ((m+1)*30.601)+d-int(y/100)+int (y/400));
end;

Для вычисления разницы между датами в самый раз.

Просто ОГРОМНОЕ СПАСИБО за помощь!