Преобразование количества секунд в формат TTIME

Преобразование количества секунд в формат TTIME

{ **** UBPFD *********** by delphibase.endimus.com ****
>> (ЧЧ:ММ:СС).
(ЧЧ:ММ:СС).
На выходе функции, получаем TTIME
Зависимости: system, sysutils
Автор: VID, <a href="mailto:vidsnap@mail.ru">vidsnap@mail.ru</a>, ICQ:132234868, Махачкала
Copyright: VID
Дата: 14 июня 2002 г.
***************************************************** }

function SecToTime(Sec: Integer): TTime;
var
 H, M, S: INTEGER;
 HS, MS, SS: string;
begin
 S := Sec;
 M := Round(INT(S / 60));
 S := S - M * 60; //Seconds
 H := Round(INT(M / 60)); //Hours
 M := M - H * 60; //Minutes
 if H < 10 then
  HS := '0' + Inttostr(H)
 else
  HS := inttostr(H);
 if M < 10 then
  MS := '0' + Inttostr(M)
 else
  MS := inttostr(M);
 if S < 10 then
  SS := '0' + inttostr(S)
 else
  SS := inttostr(S);
 RESULT := StrToTime(HS + ':' + MS + ':' + SS);
end;

Пример использования:
ShowMessage(TimeToStr(SecToTime(50)));
//получаем сообщение:
"00:00:50 "

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...