Лень читать про "юлианскую дату" и формулы расчета, но могу сказать как минимум две вещи.
1)
Цитата:
if Month>2 then begin
Year:=Year;
Month:=Month;
end
|
И что это, по-вашему, должно делать? Тут даже без знания программирования очевидно, что это 4 строки совершенно бесполезного кода. Year будет равным Year всегда и без всяких условий. Как и Month.
2)
Цитата:
|
(Year, Month, Day: real): real;
|
Судя по всему, возвращаться должны значения через параметры. Тогда а) нужен
var и б) не нужна функция, достаточно процедуры.