Форум: "Основная";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];
ВнизДата миллисекунды Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c