Delphi 10.3本地DST生效时获取UTC时间出错求助

问题分析 #

你遇到的问题是Delphi 10.3的TTimezone.Local.ToUniversalTime方法在夏令时（DST）结束后的回退时段（如2022年11月6日凌晨2点后本地时间回退到1点），无法正确计算UTC时间，导致结果比实际早1小时。这是因为该方法在处理重复的本地时间区间（DST结束时同一本地时间会出现两次，分别对应DST生效和失效状态）时，错误沿用了DST生效时的时区偏移。

解决方案 #

以下是几种可靠的替代方案，绕过原方法的bug：

方案1：直接调用Windows API获取UTC时间

系统底层的UTC时间是连续且不受DST影响的，通过GetSystemTime直接获取最准确：

function UTCNow: TDateTime;
var
  SysTime: TSystemTime;
begin
  GetSystemTime(SysTime);
  Result := SystemTimeToDateTime(SysTime);
end;

这个方法完全依赖系统的UTC时钟，不会受本地DST切换的干扰，结果始终准确。

方案2：使用TDateTimeOffset类（Delphi 10.3及以上支持）

TDateTimeOffset会明确关联本地时间与时区偏移，能正确识别DST状态：

function UTCNow: TDateTime;
var
  LocalOffset: TDateTimeOffset;
begin
  LocalOffset := TDateTimeOffset.Now;
  Result := LocalOffset.UtcDateTime;
end;

它会自动读取系统的时区配置，正确计算当前UTC时间，无需手动处理DST逻辑。

方案3：手动计算UTC时间（备选）

如果需要兼容旧版本，也可以手动通过本地时间与时区偏移计算：

function UTCNow: TDateTime;
var
  LocalTime: TDateTime;
  OffsetMinutes: Integer;
begin
  LocalTime := Now;
  // 获取当前本地时间对应的UTC偏移（分钟），自动处理DST
  OffsetMinutes := TTimeZone.Local.GetUtcOffset(LocalTime).TotalMinutes;
  // UTC时间 = 本地时间 - 偏移量（因为偏移是本地比UTC慢/快的分钟数）
  Result := LocalTime - EncodeTime(0, OffsetMinutes, 0, 0);
end;

这里的关键是用GetUtcOffset获取当前本地时间对应的实际偏移，而不是固定偏移，避免DST切换时的错误。

为什么原方法失效？ #

当DST结束时，本地时间会回退1小时（如从2:00变回1:00），此时1:00-2:00这个区间会出现两次：第一次是DST生效状态（偏移更小），第二次是DST失效状态（偏移更大）。TTimezone.Local.ToUniversalTime的AdjustForDST=True参数在处理这个重复区间时，默认选择了第一次的偏移值，导致UTC时间计算错误。

内容的提问来源于stack exchange，提问作者Hammerson