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;

 

 

Пример использования:

 

ShowMessage(TimeToStr(SecToTime(50)));

 

//получаем сообщение:

"00:00:50 "

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить