Code:

{ **** UBPFD *********** by delphibase.endimus ****

>> Преобразование количества секунд в формат TTIME (ЧЧ:ММ:СС).

Преобразование количества секунд в формат TTIME (ЧЧ:ММ:СС).

На выходе функции, получаем TTIME

Зависимости: system, sysutils

Автор: VID, vidsnapmail.ru, 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 < 10then

HS := '0' + Inttostr(H)

else

HS := inttostr(H);

if M < 10then

MS := '0' + Inttostr(M)

else

MS := inttostr(M);

if S < 10then

SS := '0' + inttostr(S)

else

SS := inttostr(S);

RESULT := StrToTime(HS + ':' + MS + ':' + SS);

end;