Преобразование количества секунд в формат 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 "

Перевод контента на русский язык:

Функция Delphi, которая конвертирует целое число, представляющее количество секунд, в объект TTime в формате HH:MM:SS. Вот разбивка кода:

function SecToTime(Sec: Integer): TTime;
var
  H, M, S: INTEGER;
  HS, MS, SS: string;
begin
  S := Sec; // присваиваем входные секунды локальной переменной S
  M := Round(INT(S / 60)); // вычисляем минуты из секунд
  S := S - M * 60; // вычисляем оставшиеся секунды
  H := Round(INT(M / 60)); // вычисляем часы из минут
  M := M - H * 60; // вычисляем оставшиеся минуты

  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); // конвертируем строку в объект TTime
end;

Функция работает, вычисляя часы, минуты и оставшиеся секунды из входных секунд. Затем она форматирует эти значения как строку в формате HH:MM:SS, добавляя ведущие нули, если необходимо. Наконец, она использует функцию StrToTime для конвертации этой строки в объект TTime, который можно использовать для отображения или дальнейшей обработки.

Пример использования показывает, как использовать эту функцию для конвертации 50 секунд в объект TTime и отобразить результат в сообщении:

ShowMessage(TimeToStr(SecToTime(50)));

Это выведет сообщение "00:00:50".

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

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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