Как получить дату по Юлианскому календарю

[Angel86rus]

Подскажите как обычную Дату преобразовать в юлианскую...?

[Скандербег]

JUL := IncDate(Date, -13);

[Angel86rus]

JUL - это что ?

[IT-man]

это переменная типа DateTime

[Angel86rus]

IncDate(); - 'это функция которую нужно вызвать
function IncDate(ADate: TDateTime; Days, Months, Years: Integer): TDateTime;

и вот что у меня получается
........................
var
jul: TDateTime;
begin
jul:= incDate(Date, -13);
end;
запускаю ругается на E2035 not enough parametrs....?/

[IT-man]

надо не incDate, a incDay

var 
jul: TDateTime;
begin
jul:= incDay(Date, -13);
end;

[Angel86rus]

я так понимаю функцию incDay тоже нужно прописывать ???

19:11

Uses DataUntil, прописал , все теперь заработало.
А как теперерь Editt отобразить.??

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Модератор

[Somebody]

Надо только учитывать, что на 13 дней разница только между 13 марта 1900 и 13 марта 2100, до этого меньше, после этого больше.

[Sasha_Smirnov]

Вот здесь — обратный перевод, в григорианский (работающая программа).

А здесь — дельфи-код двустороннего преобразователя, тоже отлаженный. Может, и пригодится.

[IT-man]

А как теперерь Editt отобразить.??

edit.text:=datetostr(jul);