Перевести секунды в формат времени

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

const 
  SecPerDay = 86400; 
  SecPerHour = 3600; 
  SecPerMinute = 60; 

function SecondToTime(const Seconds: Cardinal): Double; 
var 
  ms, ss, mm, hh, dd: Cardinal; 
begin 
  dd := Seconds div SecPerDay; 
  hh := (Seconds mod SecPerDay) div SecPerHour; 
  mm := ((Seconds mod SecPerDay) mod SecPerHour) div SecPerMinute; 
  ss := ((Seconds mod SecPerDay) mod SecPerHour) mod SecPerMinute; 
  ms := 0; 
  Result := dd + EncodeTime(hh, mm, ss, ms); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  label1.Caption := DateTimeToStr(Date + SecondToTime(86543)); 
end;

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

Задача заключается в преобразовании секунд в формат времени, понятный человеку (дни, часы, минуты и секунды) в Delphi.

Вот код, предоставленный:

const
  SecPerDay  = 86400;
  SecPerHour = 3600;
  SecPerMinute = 60;

function SecondToTime(const Seconds: Cardinal): Double;
var
  ms, ss, mm, hh, dd: Cardinal;
begin
  dd := Seconds div SecPerDay;
  hh := (Seconds mod SecPerDay) div SecPerHour;
  mm := ((Seconds mod SecPerDay) mod SecPerHour) div SecPerMinute;
  ss := ((Seconds mod SecPerDay) mod SecPerHour) mod SecPerMinute;
  ms := 0;
  Result := dd + EncodeTime(hh, mm, ss, ms);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := DateTimeToStr(Date + SecondToTime(86543));
end;

Вот анализ кода:

• Функция SecondToTime принимает целое число, представляющее секунды в качестве входного параметра и возвращает строковое представление этого времени в формате DD HH:MM:SS.
  • Она вычисляет дни, часы, минуты и секунды, выполняя арифметические операции над входными секундами.
  • Использует функцию EncodeTime для преобразования этих значений в объект TDateTime, который затем добавляется к текущей дате с помощью выражения Date + SecondToTime(Seconds).
• Событийный обработчик Button1Click вызывает функцию SecondToTime с аргументом 86543 (который представляет собой приблизительно 24 часа и 3 минуты) и присваивает полученный строковый результат лейблу компонента.

Код работает корректно, но есть некоторые предложения:

1. Рассмотрите использование констант для значений секунд-на-единицу вместо определения отдельных переменных. Это уменьшит количество кода и сделает его более простым в обслуживании.
2. Вы можете использовать встроенную функцию FormatDateTime для преобразования объекта TDateTime в строку в желаемом формате, а не полагаться на ручные расчеты.

Вот обновленная версия кода, которая включает эти предложения:

const
  SecPerDay = 86400;
  SecPerHour = 3600;
  SecPerMinute = 60;

function SecondToTime(const Seconds: Cardinal): string;
begin
  Result := FormatDateTime('dd hh:nn:ss', Date + Seconds / SecPerDay);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := SecondToTime(86543);
end;

Этот код более компактен и проще в обслуживании. Он использует функцию FormatDateTime для преобразования объекта TDateTime в строку в желаемом формате, убирая необходимость в ручных расчетах.

В статье описывается функция на языке Delphi, которая переводит секунды в формат времени, включая дни, часы, минуты и секунды.

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

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

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