Скачать: CL | DM;

функция 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() и назад.

---

← →
Gero ©   (2006-09-07 17:13) [9]

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

---

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

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

---

← →
syte_ser78 ©   (2006-09-07 17:28) [11]

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

---

← →
Anatoly Podgoretsky ©   (2006-09-07 21:15) [12]

Marser ©   (07.09.06 17:20) [10]
Ну и напрасно, а там есть функции преобразования.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.03 c