Синхронизация временных зон: работа с датой и временем в Delphi и UTC

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

Вопрос о конвертации локального времени в UTC и обратно является актуальным для многих разработчиков, работающих с базами данных и клиентскими приложениями. В Delphi для выполнения таких операций существуют различные подходы, которые зависят от конкретной задачи и контекста использования.

Конвертация времени в Delphi

Для начала рассмотрим базовый пример конвертации времени из локального в UTC и обратно. В Delphi для работы с временем и датой можно использовать встроенные функции, а также сторонние библиотеки, например, Time Zone Database for Delphi (TZDB).

Конвертация в локальное время

Для конвертации времени из UTC в локальное время можно использовать следующий подход:

function LocalDateTimeFromUTCDateTime(const UTCDateTime: TDateTime): TDateTime;
var
  LocalSystemTime, UTCSystemTime: TSystemTime;
  LocalFileTime, UTCFileTime: TFileTime;
begin
  DateTimeToSystemTime(UTCDateTime, UTCSystemTime);
  SystemTimeToFileTime(UTCSystemTime, UTCFileTime);
  if FileTimeToLocalFileTime(UTCFileTime, LocalFileTime) and
    FileTimeToSystemTime(LocalFileTime, LocalSystemTime) then
  begin
    Result := SystemTimeToDateTime(LocalSystemTime);
  end
  else
  begin
    Result := UTCDateTime; // В случае ошибки конвертации возвращаем исходное UTC время.
  end;
end;

Этот метод преобразует UTCDateTime в SystemTime, затем в FileTime, после чего в LocalFileTime, что и выполняет конвертацию из UTC в локальное время. Далее LocalFileTime снова преобразуется в SystemTime, и, наконец, в DateTime.

Конвертация из локального времени в UTC

Обратная конвертация из локального времени в UTC может быть выполнена с помощью аналогичных преобразований, но в обратном порядке.

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

С версии XE в Delphi появился класс TTimeZone, который позволяет работать с информацией о временных зонах более удобным способом:

LocalDateTime := TTimeZone.Local.ToLocalTime(UniversalDateTime);

Для конвертации обратно в UTC используйте метод ToUniversalTime:

UniversalDateTime := TTimeZone.Local.ToUniversalTime(LocalDateTime);

Обработка перехода на летнее время

При работе с временными зонами важно учитывать переход на летнее время и его влияние на конвертацию времени. Класс TTimeZone пытается учитывать переход на летнее время, но полная точность невозможна.

Альтернативные подходы

В случае использования Delphi XE2, можно воспользоваться функциями TzSpecificLocalTimeToSystemTime и SystemTimeToTzSpecificLocalTime из kernel32.dll. Однако следует учитывать, что эти функции могут неправильно рассчитывать локальное время в некоторых случаях.

Современные подходы

В 2020 году для работы с UTC и локальным временем можно использовать следующий код:

uses
  System.DateUtils;

function GetUTC(dt: TDateTime): TDateTime;
begin
  Result := TTimeZone.Local.ToUniversalTime(dt);
end;

function GetLocalTime(dt: TDateTime): TDateTime;
begin
  Result := TTimeZone.Local.ToLocalTime(dt);
end;

Использование этих методов позволит синхронизировать временные зоны и работать с датой и временем в Delphi, учитывая их конвертацию между локальным и UTC форматами.

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

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

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

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

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