Конвертация даты и времени из UTC в другие временные зоны в Delphi

Delphi , Синтаксис , Справочник по API-функциям

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

Описание проблемы

Пользователь столкнулся с необходимостью конвертации даты и времени из UTC в конкретную временную зону, например, Московское время. В C# это делается довольно просто с помощью класса TimeZoneInfo. Но как это сделать в Delphi, не совсем ясно из стандартных средств.

Решение проблемы

Для решения задачи в Delphi можно использовать функции Win32 API, в частности, функцию SystemTimeToTzSpecificLocalTimeEx. Эта функция позволяет конвертировать время из UTC в локальное время, учитывая конкретный часовой пояс. Для работы с этой функцией необходимо использовать структуру DYNAMIC_TIME_ZONE_INFORMATION, доступную начиная с Windows Vista.

Шаги для конвертации времени:

1. Получите структуру DYNAMIC_TIME_ZONE_INFORMATION для нужного часового пояса, используя функцию EnumDynamicTimeZoneInformation.
2. Используйте структуру SYSTEMTIME для представления времени в UTC.
3. Вызовите функцию SystemTimeToTzSpecificLocalTimeEx, чтобы получить локальное время.

Пример кода на Object Pascal:

uses
  Winapi.Windows,
  Winapi.TimeZoneAPI;

// Предположим, что TZID - это идентификатор часового пояса, например, "W. Europe Standard Time"
var
  TZI: TDynamicTimeZoneInformation;
  UTCTime: TSystemTime;
  LocalTime: TSystemTime;
begin
  // Инициализация структуры для UTC времени
  UTCTime.wYear := 2023;
  UTCTime.wMonth := 1;
  UTCTime.wDayOfWeek := 1; // Начинаем с понедельника
  UTCTime.wDay := 1; // День месяца
  UTCTime.wHour := 0;
  UTCTime.wMinute := 0;
  UTCTime.wSecond := 0;
  UTCTime.wMilliseconds := 0;
  SetSystemTimeToUTC(UTCTime);

  // Получение информации о динамическом часовом поясе
  if EnumDynamicTimeZoneInformation(nil, TZID, TZI) = ERROR_SUCCESS then
  begin
    // Конвертация времени
    if SystemTimeToTzSpecificLocalTimeEx(nil, TZI, UTCTime, LocalTime, TRUE) then
    begin
      // Здесь LocalTime содержит конвертированное время
    end;
  end;
end;

Альтернативный ответ

Если вы предпочитаете использовать IANA идентификаторы часовых поясов, рекомендуется использовать библиотеку tzdb для Delphi, как описано в этом посте на Stack Overflow.

Заключение

Конвертация времени из UTC в локальное время в Delphi может быть выполнена с помощью функций Win32 API. Важно использовать структуры DYNAMIC_TIME_ZONE_INFORMATION для получения актуальной информации о часовом поясе. Также существует альтернативный подход с использованием IANA идентификаторов и библиотеки tzdb, который обеспечивает лучшую интероперабельность с другими системами и языками программирования.

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

Описание процесса конвертации времени из UTC в локальное время в Delphi с использованием функций Win32 API и альтернативный способ с применением библиотеки tzdb.

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

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

:: Главная :: Справочник по API-функциям ::