Текущий архив: 2007.06.17;
Скачать: CL | DM;
Вниз
Перевод секунд в Часы:Минуты:Секунды Найти похожие ветки
← →
ppcumax © (2007-05-27 22:49) [0]Есть integer секунд, как перевести в часы, минуты, секунды?
← →
Плохиш © (2007-05-27 23:11) [1]
> ppcumax © (27.05.07 22:49)
> Есть integer секунд, как перевести в часы, минуты, секунды?
Операция деления поможет отцу русской демократии...
← →
Loginov Dmitry © (2007-05-27 23:34) [2]Добрый я чесь седня...
на, держи:
procedure TForm1.Button1Click(Sender: TObject);
var
H, M, S, ATime: Integer;
begin
ATime := StrToInt(Edit1.Text);
H := ATime div 3600;
M := (ATime - H * 3600) div 60;
S := ATime - H * 3600 - M * 60;
Caption := Format("%d ч %d м %d с", [H, M, S]);
end;
← →
ppcumax © (2007-05-28 00:37) [3]Спасибо
← →
Германн © (2007-05-28 01:42) [4]
> ppcumax © (28.05.07 00:37) [3]
>
> Спасибо
>
И не стыдно?
:-)
Страницы: 1 вся ветка
Текущий архив: 2007.06.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
