функция date

← →
syte_ser78 © (2006-09-07 16:47) [0]

На php есть функция date возвращающая колво секунд прошедших с 1 января 1970 года.
Есть ли стандартное решение преобразования данного числа в дату средствами Delphi?

← →
Ega23 © (2006-09-07 16:49) [1]

См. DecodeDae, EncodeDate и читай про структуру TDateTime.
0 - 30.12.1899.

← →
Gero © (2006-09-07 16:52) [2]

function GetWinDate(UnixDate: Double): TDatetime;
const
UnixDateDelta = 25569;
begin
Result := UnixDate / SecsPerDay + UnixDateDelta;
end;

← →
Marser © (2006-09-07 16:52) [3]

function GetUnixTime(mtime:TDateTime):cardinal;
begin
Result:=round((mtime-25569)*86400);
end;
function DecodeUnixTime(mtime:cardinal):TDateTime;
begin
Result:=mtime/86400+25569;
end;

← →
Marser © (2006-09-07 16:54) [4]

Это из рабочего кода выдрано :о)

← →
Gero © (2006-09-07 16:55) [5]

> [4] Marser © (07.09.06 16:54)

У меня тоже :)

← →
Ketmar © (2006-09-07 17:00) [6]

DateUtils больше не рулит? %-)

← →
Marser © (2006-09-07 17:09) [7]

> [6] Ketmar © (07.09.06 17:00)
> DateUtils больше не рулит? %-)

В Delphi 6 там по этому поводу я ничего не нашёл...

← →
Ketmar © (2006-09-07 17:11) [8]

> [7] Marser © (07.09.06 17:09)
не помню, как в 6, но, кажется, всё-таки было DateTimeToUnix() и назад.

В D6 есть, в D5 — нету.

Да, скромно так под юлиановскими функами в хелпе присел... Прочем, пофик, всё равно я DateUtils там не юзаю...

Спасибо огромное!

функция date Найти похожие ветки