[Annihilator]

Сообщение от Zames

Спасибо Annihilator за помощь. Всё работает на ура! Нашёл другую формулу. теперь всё работает как надо!

Код:

function TForm1.JD(year, month, day: real): real;
begin
  if (month=1) or ( month=2) then
    begin
      Year:=Year-1;
      Month:=Month+12;
    end;
  result:=INT(365.25*Year)+ INT(30.6001*(Month + 1)) -15+1720996.5+ Day;
end;

Пожалуйста