Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.16;
Скачать: CL | DM;

Вниз

Подскажите плиз самый оптимальный алгоритм часов.   Найти похожие ветки 

 
Щькодер   (2003-01-07 08:34) [0]

Подскажите плиз самый оптимальный алгоритм часов.
Нет, в нужны часы которые идут с интервалом в 1 секунду и время выводилось не как обычно 00.00.00, а 0000.00.00(где 0000 это часы,00,мин и 00 сек.)
Т.е масимально часов должно быть не привычное нам 24, а 9999.


 
Rouse_ ©   (2003-01-07 11:28) [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;


Не самое оптимальное, но самое наглядное :))

Желаю успехов



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

Текущий архив: 2003.01.16;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.012 c
1-48966
Сергей Макаров
2003-01-04 16:27
2003.01.16
Работа с ini файлами


7-49333
Koster
2002-11-04 09:31
2003.01.16
Физический доступ к носителю


1-48996
Scorp
2003-01-07 00:45
2003.01.16
програмное выполнение команды


14-49265
Свой
2002-12-25 11:20
2003.01.16
Какую ОС поставить


14-49198
Hammer1
2002-12-28 14:36
2003.01.16
Немного не в тему, но может ктото поможет