Текущий архив: 2003.03.03;
Скачать: CL | DM;

Вниз

Как текущую получить дату и время в Unix формате   Найти похожие ветки 

← →
stur ©   (2003-02-19 12:11) [0]

Т.е. число секунд прошедших с 1970 года.

---

← →
Chubais ©   (2003-02-19 13:42) [1]

secondsbetween(StrToDate("01.01.1970"),Now)?

---

← →
han_malign ©   (2003-02-19 14:08) [2]

SysUtils
Result:=round((Now-EncodeDate(1970,1,1))*24*3600)

WinAPI
var st: TSystemTime;
ft,ft1970: TFileTime;
begin
FillChar(st,sizeof(st),0);
with st do begin
wYear:=1970;
wMonth:=1;
wDay:=1;
end;
SystemTimeToFileTime(st,ft1970);
GetLocalTime(st);
SystemTimeToFileTime(st,ft);
Result:=(int64(ft)-int64(ft1970))div 10000000;
end;

---

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

Текущий архив: 2003.03.03;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c