Как получить текущее время с точностью до миллисекунд?

← →
leonidus (2004-03-27 21:24) [0]

Мастера подскажите подалуйста, при работе программы, в определенные промежутки времени мне надо знать точно текущее время с точностью до миллисекунд, я пробовал использовать функцию Time, но она выдает с точностью до секунды, может есть например API-функция? Заранее спасибо.

← →
TButton © (2004-03-27 22:13) [1]

GetTickCount

← →
Piter © (2004-03-27 22:21) [2]

Ну мне что-то не верится, что тебе нужно знать именно время с точностью до миллисекунд. А вот если тебе нужно засекать промежутки времени, то есть функция GetTickCount, возвращающая количество миллисекунд прошедших с момента запуска windows

← →
leonidus (2004-03-27 23:35) [3]

Всем большое спасибо, GetTickCount - как раз то что надо.

← →
sniknik © (2004-03-27 23:56) [4]

> я пробовал использовать функцию Time, но она выдает с точностью до секунды
?
DateTimeToString(St, "n:ss:zzz", Time());
Label1.Caption:= St;

← →
Piter © (2004-03-28 00:55) [5]

sniknik (27.03.04 23:56) [4]

хм, а разве в TDateTime есть место для хранения миллисекунд?

Piter © (28.03.04 00:55)

procedure DecodeTime(const DateTime: TDateTime; var Hour, Min, Sec, MSec: Word); var MinCount, MSecCount: Word; begin DivMod(DateTimeToTimeStamp(DateTime).Time, 60000, MinCount, MSecCount); DivMod(MinCount, 60, Hour, Min); DivMod(MSecCount, 1000, Sec, MSec); end;

> а разве в TDateTime есть место для хранения миллисекунд?

Очевидно, есть

2 Piter © (28.03.04 00:55) [5]
> хм, а разве в TDateTime есть место для хранения миллисекунд?

Ну, поскольку TDateTime есть действительное число, то в нем есть место. Причем для хранения не только миллисекунд. Вопрос только в "точности" и "разрядности".

Piter © (28.03.04 00:55) [5]
Есть и для наносекунд, точность пятнадцать знаков, под день уходит только пять, под дробную остается десять!!!
Другой вопрос а они там есть, также как и в GetTickCount, ну конечно есть но это как жизнь на Марсе.

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