Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Дата миллисекунды [D7, Win95/98]

Alkaloid © (2003-01-16 20:19:00)
Добрый вечер.
Скажите пожалуста как вывести дату в миллисекундах.Требуется показать разницу времени происшедшее с одного клика до другого.

var:
T: TDateTime;
T2: TDateTime;

Procedure Click1:

T:=Now;

Procedure Click2;

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

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

Dms (2003-01-17 16:43:00) [1]
t1,t2 : TDateTime;
...
t1:=Now;
Sleep(1000);
t2:=Now - t1;
l.caption:=FormatDateTime("hh:nn:ss:zzz");

Axis_of_Evil (2003-01-17 15:21:00) [2]
а GetTickCount не подойдет
это лучше чем с датой мучаться

Th (2003-01-17 15:18:00) [3]
f:=QueryPerformanceFrequency

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

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

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

Bucho (2003-01-17 15:12:00) [4]
uses DateUtils;
SecondsBetween(ANow,AThen)*1000
или
MilliSecondsBetween(ANow, AThen)

Bucho (2003-01-17 15:10:00) [5]
uses DateUtils;
SecondsBetween(ANow,AThen)*1000

MBo (2003-01-17 06:38:00) [6]
В обработчике клика запоминай GetTickCount - это как раз миллисекунды

hoper (2003-01-17 03:52:00) [7]
Now*86400000-T*86400000

Anatoly Podgoretsky (2003-01-16 21:09:00) [8]
В школе учился?

Alkaloid (2003-01-16 21:00:00) [9]
Так ка это оформить?Плиз.

Anatoly Podgoretsky (2003-01-16 20:50:00) [10]
Причем тут дата, у тебя же разнича времени.
Хинт: в сутках 86400000 миллисекунд

TTCustomDelphiMaster (2003-01-16 20:41:00) [11]
FormatDateTime("ss:zzz", ...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »