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

Delphi , Синтаксис , Дата и Время

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

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

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

Зависимости: system, sysutils
Автор:       VID, vidsnap@mail.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 < 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 "

Статья Преобразование количества секунд в формат TTIME раздела Синтаксис Дата и Время может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Дата и Время ::