Юлианов День

← →
may be I am noob... © (2008-05-25 10:50) [0]

Здравствуйте!

Как реализовать в Delphi преобразовании даты в Юлианов День (наподобие ф-и StrToTime() в PHP), имея при этом: день, месяц, год, часы, минуты и секунды?

← →
may be I am noob... © (2008-05-25 10:53) [1]

Т.е. сколько прошло секунд с 01.01.1900г. (для тех кто не знает)

Заранее благодарен.

← →
may be I am noob... © (2008-05-25 11:21) [2]

Извините, с 01.01.1970 года и время 07:00:00 :)

← →
engine © (2008-05-25 13:15) [3]

Uses DateUtils;

SecondsBetween - ?

← →
may be I am noob... © (2008-05-25 14:22) [4]

Большое спасибо! Да-это оно! :)

unit Julian; interface uses SysUtils, DateUtils; Function GetJulianDate(Dt: TDateTime): Real; overload; Function GetJulianDate(D, M, Y, H, I, S: Integer): Real; overload; implementation Function GetJulianDate(Dt: TDateTime): Real; overload; begin Result := SecondsBetween(Dt, StrToDateTime("01.01.1970 07:00:00")); end; Function GetJulianDate(D, M, Y, H, I, S: Integer): Real; overload; begin Result := GetJulianDate( StrToDateTime( Format("%d.%d.%d %d:%d:%d", [D, M, Y, H, I, S])) ); end; end.

на

> Т.е. сколько прошло секунд с 01.01.1900г. (для тех кто не
> знает)

Такого никто не знает, откуда ты взял это про Юлиан день, ну не имеет оно отношение к 1900 никакого.

А ответ очень смешной DateTimeToJulianDate

Юлианов День Найти похожие ветки