UTC and Local Time Conversion

Однажды мне понадобилась функция, которая пересчитывает дату/время из UTC в локальное время. Ничего вразумительного в сети найти мне не удалось, поэтому пришлось открыть справку (win32.hlp) и написать функцию самостоятельно…

Итак, код функций. Преобразование времени UTC к локальному времени и обратно, с учётом Windows-настроек локального GMT-смещения и правилами перехода на летнее время.

unit DelphiNotesUTC;

interface

// Преобразование времени UTC к локальному времени и обратно
// с учётом Windows-настроек локального GMT-смещения и правилами перехода на летнее время
function UTCToLocalTime(AValue: TDateTime): TDateTime;
function LocalTimeToUTC(AValue: TDateTime): TDateTime;

implementation

uses
  SysUtils, Windows;

function UTCToLocalTime(AValue: TDateTime): TDateTime;
// AValue - время UTC
// Result - время с учётом локального GMT-смещения и правилами перехода на летнее время
var
  ST1, ST2: TSystemTime;
  TZ: TTimeZoneInformation;
begin
  // TZ - локальные настройки Windows
  GetTimeZoneInformation(TZ);

  // Преобразование TDateTime к WindowsSystemTime
  DateTimeToSystemTime(AValue, ST1);

  // Применение локальных настроек ко времени
  SystemTimeToTzSpecificLocalTime(@TZ, ST1, ST2);

  // Приведение SystemTime к TDateTime
  Result := SystemTimeToDateTime(ST2);
end;

function LocalTimeToUTC(AValue: TDateTime): TDateTime;
// AValue - локальное время
// Result - время UTC
var
  ST1, ST2: TSystemTime;
  TZ: TTimeZoneInformation;
begin
  // TZ - локальные (Windows) настройки
  GetTimeZoneInformation(TZ);
  // т.к. надо будет делать обратное преобразование - инвертируем bias
  TZ.Bias := -TZ.Bias;
  TZ.StandardBias := -TZ.StandardBias;
  TZ.DaylightBias := -TZ.DaylightBias;

  DateTimeToSystemTime(AValue, ST1);

  // Применение локальных настроек ко времени
  SystemTimeToTzSpecificLocalTime(@TZ, ST1, ST2);

  // Приведение WindowsSystemTime к TDateTime
  Result := SystemTimeToDateTime(ST2);
end;

end.

Пример использования.

var
  D: TDateTime;
begin
  Memo1.Lines.Clear;
  D := EncodeDate(2011, 1, 1) + Frac(Now);
  Memo1.Lines.Add(DateTimeToStr(D));                    // 01.01.2011 19:53:04
  Memo1.Lines.Add(DateTimeToStr(LocalTimeToUTC(D)));    // 01.01.2011 16:53:04
  Memo1.Lines.Add(DateTimeToStr(UTCToLocalTime(D)));    // 01.01.2011 22:53:04

  D := EncodeDate(2011, 6, 1) + Frac(Now);
  Memo1.Lines.Add(DateTimeToStr(D));                    // 01.06.2011 19:53:04
  Memo1.Lines.Add(DateTimeToStr(LocalTimeToUTC(D)));    // 01.06.2011 15:53:04
  Memo1.Lines.Add(DateTimeToStr(UTCToLocalTime(D)));    // 01.06.2011 23:53:04
end;

Чтобы понять суть работы функций, приведу такой пример. Допустим у Вас есть удалённый сервер, на нём часы выровнены по UTC, т.е. в независимости от того, где находится сервер, он оперирует временем по Гринвичу. На сервере происходят какие-то события и он их протоколирует.

И есть Ваша машина, на которой настроено локальное время (для Москвы/Питера – это часовой пояс UTC+03:00, ну и плюс не забываем про зимнее/летнее время). Допустим, сервер возвращает Вам информацию, что в 17:00 произошло такое-то событие, а Вам надо понять, где Вы были в это время (в офисе, или уже по дороге домой). Можно конечно посчитать в голове: прибавить 3 часа (или 4, в зависимости от даты)… а если событий много? А если я вот не помню, когда осуществляется отмена зимнего времени?

Вобщем, для решения схожих проблем и были написаны приведённые функции.

P.S.: Кстати у этих функций есть особенность: если у Вас в настройках даты и времени ОС снят флаг "Автоматический переход на летнее время и обратно", то эти функции не будут учитывать правила перехода на летнее время. Хорошо это, или плохо – зависит от ситуации…