Перевод времени в секунды и минуты в Delphi: эффективные способы конвертации

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

Вопрос о переводе времени, представленного в формате HH:MM:SS, в секунды или минуты, является актуальным для разработчиков, использующих язык программирования Object Pascal и среду разработки Delphi. В данном ответе мы рассмотрим несколько методов, которые позволят решить эту задачу эффективно.

Использование функции DecodeTime

Один из способов конвертации времени в секунды — использование функции DecodeTime из модуля System.SysUtils. Она позволяет разделить строку времени на составляющие: часы, минуты, секунды и миллисекунды. На основе этих данных можно вычислить общее количество секунд. Пример функции, возвращающей секунды:

function GetSeconds(ATimeString: string): Integer;
var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(StrToTime(ATimeString), Hour, Min, Sec, MSec);
  Result := Hour * 3600 + Min * 60 + Sec;
end;

Использование TTimeSpan

Более гибким инструментом для работы с временными интервалами является класс TTimeSpan, который находится в модуле System.TimeSpan. Он позволяет получить результат в различных единицах измерения и форматировать его по необходимости:

var
  timeSpan: TTimeSpan;
begin
  timeSpan := TTimeSpan.Parse('00:01:49');
  memo2.Lines.Add(Format('%1.1f min', [timeSpan.TotalMinutes]));
end;

Использование модуля DateUtils

Модуль DateUtils предоставляет функции, такие как SecondOfTheDay и MinuteOfTheDay, которые напрямую возвращают количество секунд или минут в текущий день, исходя из переданной строки времени:

WriteLn(SecondOfTheDay(StrToTime('00:10:00')));
WriteLn(MinuteOfTheDay(StrToTime('00:10:00')));

Альтернативный метод с использованием StringToSeconds

Можно создать функцию StringToSeconds, которая преобразует строку времени в секунды, используя TTimeSpan. В случае возникновения ошибки, функция вернёт -1:

function StringToSeconds(const s: string): integer;
var
  TimeSpan: TTimeSpan;
begin
  try
    TimeSpan := TTimeSpan.Parse(s);
    Result := round(TimeSpan.TotalSeconds);
  except
    Result := -1;
  end;
end;

Улучшенный метод с обработкой исключений

Для избежания ошибок, связанных с переполнением, можно использовать следующий подход, который отделяет часы, минуты и секунды и обрабатывает их по отдельности:

function GetSecondsFromString(ATimeString: string): Double;
var
  arr: TStringDynArray;
  I, J: Integer;
  tf: TFormatSettings;
begin
  Result := 0;
  arr := StrUtils.SplitString(ATimeString, ':');
  I := High(arr);
  if I < 1 then
    exit;
  if I = 2 then
  begin
    if StrToIntDef(arr[0], 0) > 23 then
      exit;
    Result := Result + (StrToIntDef(arr[0], 0) * 3600);
  end;
  Result := Result + (StrToIntDef(arr[I - 1], 0) * 60);
  J := Pos('.', arr[I]);
  if (J > 1) and (J < arr[I].Length) then
  begin
    tf := TFormatSettings.Create;
    tf.DecimalSeparator := '.';
    Result := Result + StrToFloat('0' + Copy(arr[I], Pos('.', arr[I])), tf);
    arr[I] := Copy(arr[I], 1, Pos('.', arr[I]) - 1);
  end;
  Result := Result + StrToIntDef(arr[I], 0);
end;

Эти методы представляют собой эффективные и проверенные временем подходы к конвертации времени в секунды и минуты в среде Delphi. Выбор конкретного метода зависит от конкретных требований и предпочтений разработчика.

Создано по материалам из источника по ссылке.

Вопрос о конвертации времени в формате HH:MM:SS в секунды или минуты в среде программирования Delphi, с использованием различных методов и функций для эффективной обработки временных данных.

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

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

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