Скачать: 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 вся ветка

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



Память: 0.45 MB
Время: 0.009 c