Дата миллисекунды

← →
Alkaloid (2003-01-16 20:19) [0]

Добрый вечер.
Скажите пожалуста как вывести дату в миллисекундах.Требуется показать разницу времени происшедшее с одного клика до другого.

var:
T: TDateTime;
T2: TDateTime;

Procedure Click1:

T:=Now;

Procedure Click2;

T2:=Now;
Label.Caption:=DateTimeTostr(T2-T1);

Смотрю по функциям,есть только преобразование с формата TimeStamp функция TimeStampToDateTime преобразовывает в миллисекунды.Так что,преоразовывать в TimeStamp,затем обратно?Может есть какая функция.Помогите плиз.

← →
TTCustomDelphiMaster © (2003-01-16 20:41) [1]

FormatDateTime("ss:zzz", ...

← →
Anatoly Podgoretsky © (2003-01-16 20:50) [2]

Причем тут дата, у тебя же разнича времени.
Хинт: в сутках 86400000 миллисекунд

← →
Alkaloid (2003-01-16 21:00) [3]

Так ка это оформить?Плиз.

← →
Anatoly Podgoretsky © (2003-01-16 21:09) [4]

В школе учился?

← →
hoper (2003-01-17 03:52) [5]

Now*86400000-T*86400000

← →
MBo © (2003-01-17 06:38) [6]

В обработчике клика запоминай GetTickCount - это как раз миллисекунды

← →
Bucho (2003-01-17 15:10) [7]

uses DateUtils;
SecondsBetween(ANow,AThen)*1000

← →
Bucho (2003-01-17 15:12) [8]

uses DateUtils;
SecondsBetween(ANow,AThen)*1000
или
MilliSecondsBetween(ANow, AThen)

f:=QueryPerformanceFrequency

когда первый клик был:
t1:=QueryPerformanceCounter

когда второй:
t2:=QueryPerformanceCounter

когда время надо показать:
dt:=(t2-t1)/f*1000

а GetTickCount не подойдет
это лучше чем с датой мучаться

← →
Dms (2003-01-17 16:43) [11]

t1,t2 : TDateTime;
...
t1:=Now;
Sleep(1000);
t2:=Now - t1;
l.caption:=FormatDateTime("hh:nn:ss:zzz");

Дата миллисекунды Найти похожие ветки