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

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

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

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

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

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;

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