Цитата:
|
Сообщение от Zames
Я новичок, попробывал написать фун-цию вычисления Юлианской даты, но она ни в какую не хочет работать подскажите где ошибка.
Код:
function TForm1.JDday(Year, Month, Day: real): real;
begin
JDday:=INT(365.25(Year + 4716)) + INT(30.6001(Month + 1)) + Day - 1524.5;
if Month>2 then begin
Year:=Year;
Month:=Month;
end
else
if (Month=1) or (Month=2) then begin
Year:=Year-1;
Month:=Month+12;
end;
end;
end. |
А это вообще компилируется?
