Текущий архив: 2005.12.18;
Скачать: CL | DM;
Вниз
GetTickCount Найти похожие ветки
← →
psa247 © (2005-11-28 17:36) [0]Как перевести GetTickCount в привычное чч:мм:сс
var tmp : string;
Curr_Time : cardinal;
begin
Curr_Time:= ((GetTickCount mod 60000) div 1000); // сек
tmp:= IntToStr((Curr_Time div 3600)mod 24) +":"+
IntToStr((Curr_Time div 60)mod 60) +":"+
IntToStr(Curr_Time);
Label1.Caption:= tmp;
Где-то ошибка, но сам не вижу
← →
Leonid Troyanovsky © (2005-11-28 18:00) [1]
> psa247 © (28.11.05 17:36)
> Как перевести GetTickCount в привычное чч:мм:сс
procedure TForm1.Button1Click(Sender: TObject);
var
t: TDateTime;
d, h, m, s, msec: Word;
begin
t := GetTickCount / MsecsPerDay;
d := Trunc(t);
DecodeTime(t-d, h, m, s, msec);
Caption := Format("%d %d:%d:%d", [d, h, m, s]);
end;
--
Regards, LVT.
← →
psa247 © (2005-11-28 18:10) [2]
> Leonid Troyanovsky ©
Словно луч света в темном царстве.
Спасибо.
Страницы: 1 вся ветка
Текущий архив: 2005.12.18;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.046 c
