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

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

← →
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)

---

← →
Th ©   (2003-01-17 15:18) [9]

f:=QueryPerformanceFrequency

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

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

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

---

← →
Axis_of_Evil ©   (2003-01-17 15:21) [10]

а 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");

---

Страницы: 1 вся ветка

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



Память: 0.47 MB
Время: 0.017 c