Текущий архив: 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.016 c
