Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Юлианов День

may be I am noob... © (2008-05-25 10:50:00)
Здравствуйте!

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

Anatoly Podgoretsky (2008-05-25 18:21:00) [1]

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

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

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

TForumHelp (2008-05-25 14:53:00) [2]
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.

на

may be I am noob... (2008-05-25 14:22:00) [3]
Большое спасибо! Да- этооно! :)

engine (2008-05-25 13:15:00) [4]
Uses DateUtils;

SecondsBetween - ?

may be I am noob... (2008-05-25 11:21:00) [5]
Извините, с 01.01.1970 года и время 07:00:00 :)

may be I am noob... (2008-05-25 10:53:00) [6]
Т.е. сколько прошло секунд с 01.01.1900г. (для тех кто не знает)

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »