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



Автор: VID
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Преобразование количества секунд в формат TTIME (ЧЧ:ММ:СС).
Преобразование количества секунд в формат TTIME (ЧЧ:ММ:СС).
На выходе функции, получаем TTIME
Зависимости: system, sysutils
Автор:       VID, [email protected], 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 "

Далее: Преобразовать TDateTime в Unix TimeStamp »»