Форум: "Начинающим";
Текущий архив: 2008.06.22;
Скачать: [xml.tar.bz2];
Вниз
Юлианов День Найти похожие ветки
← →
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]Большое спасибо! Да-это оно! :)
← →
TForumHelp © (2008-05-25 14:53) [5]
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.
на
← →
Anatoly Podgoretsky © (2008-05-25 18:21) [6]
> Т.е. сколько прошло секунд с 01.01.1900г. (для тех кто не
> знает)
Такого никто не знает, откуда ты взял это про Юлиан день, ну не имеет оно отношение к 1900 никакого.
А ответ очень смешной DateTimeToJulianDate
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.06.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.043 c
