Текущий архив: 2003.03.31;
Скачать: CL | DM;
Вниз
Есть ли простая функция для получения текущей даты времени в милл Найти похожие ветки
← →
Yozch_ (2003-03-18 17:37) [0]Есть ли простая функция для получения текущей
даты/времени в миллисекундах от 1970/1900 г. или_как_там_в виндах?
← →
REA © (2003-03-18 17:47) [1]Now - целая часть дни, дробная доли дней.
Now*MSecsPerDay - в миллисекундах. Естественно это время в Windows не может претендовать на точное, поэтому как таковое мало кого интересует. GetTickCount тоже в мс. с момента старта windows.
← →
han_malign © (2003-03-18 17:52) [2]The FILETIME structure is a 64-bit value representing the number of 100-nanosecond intervals since January 1, 1601.
GetLocalTime
SystemTimeToFileTime
...
program tm;
{$APPTYPE CONSOLE}
uses Windows,Utils;
var
st: TSystemTime;
dt: TDateTime;
ft,dft: TFileTime;
mSec: int64;
begin
fillchar(st,sizeof(st),0);
st.wYear:=1970;//1900
st.wMonth:=1;
st.wDay:=1;
st.wHour:=0;
SystemTimeToFileTime(st,dft);
GetLocalTime(st);
SystemTimeToFileTime(st,ft);
mSec:=(int64(ft)-int64(dft))div 10000;
end.
- dft можно посчитать один раз и записать константой
Страницы: 1 вся ветка
Текущий архив: 2003.03.31;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
