Подскажите плиз самый оптимальный алгоритм часов.
Щькодер © (2003-01-07 08:34:00)
Подскажите плиз самый оптимальный алгоритм часов.
Нет, в нужны часы которые идут с интервалом в 1 секунду и
время выводилось не как обычно 00.00.00, а 0000.00.00(где 0000 это
часы,00,мин и 00 сек.)
Т.е масимально часов должно быть не привычное нам 24, а
9999.
Rouse_ (2003-01-07 11:28:00) [1]
procedure TForm1.Timer1Timer(Sender: TObject);
var
h,m,s,ms: Real;
begin
h:=0;
m:=0;
ms:=GetTickCount; //Ну или нужное время в формате TDateTime;
s:=int(ms/1000);
if s > 59 then begin
m:=int(s / 60);
s:=s-(m*60);
end;
if m > 59 then begin
h:=int(m/60);
m:=m-(h*60);
end;
Caption:= floattostr(h)+":"+floattostr(m)+":"+floattostr(s);
end;
Не самое оптимальное, но самое наглядное :))
Желаю успехов
Наверх 
ЧАТ |
Орешник |
|
