delphi - TXSDateTime错误 "local time situated within the missing period prior to DST'

Question

通过将 TTimeZone.Local.UTCOffset(现在为 2 小时)添加到 TDateTime，我们将本地日期(无时间部分)转换为需要 UTC 日期时间字符串的外部系统。
在我们切换到 DST 的晚上(02:00)，此操作失败。

来自System.RTLConst的错误:

SLocalTimeInvalid = 'The given "%s" local time is invalid (situated within the missing period prior to DST).';

发生在System.DateUtils中:

function TTimeZone.GetUtcOffsetInSeconds(const ADateTime: TDateTime; const ForceDaylight: Boolean): Int64;
var
  LOffset, LDSTSave: Int64;
  LType: TLocalTimeType;
begin
  { Obtain the information we require }
  DoGetOffsetsAndType(ADateTime, LOffset, LDSTSave, LType);

  { Select the proper offset }
  if (LType = lttInvalid) then
    raise ELocalTimeInvalid.CreateResFmt(@SLocalTimeInvalid, [DateTimeToStr(ADateTime)])
  else if (LType = lttDaylight) or ((LType = lttAmbiguous) and ForceDaylight) then
    Result := LOffset + LDSTSave
  else
    Result := LOffset;
end;

要重现的代码:

function DateTime2UTCString(ADateTime: TDateTime): String;
var XSD: TXSDateTime;
begin
  XSD := TXSDateTime.Create;
  try
    try
      XSD.AsDateTime := ADateTime;
      Result := XSD.NativeToXS;
    except
      on E:Exception do
        Result := E.Message;
    end;
  finally
     XSD.Free;
  end;
end;

function Date2UTCString(ADateTime: TDateTime): String;
// Input is guaranteed to have no time fraction
begin
  ADateTime := ADateTime + TTimeZone.Local.UTCOffset;
  Result := DateTime2UTCString(ADateTime);
end;

procedure TFrmUTCandDST.Button1Click(Sender: TObject);
var
  lDT: TDateTime;
  l  : integer;
begin
  lDT := EncodeDate(2016,3,25);
  for l := 0 to 2 do
  begin
    lDT := lDT +1;
    Memo1.Lines.Add(DateToStr(lDT) + ' -> ' + Date2UTCString(lDT));
  end;
end;

(不要忘记使用SOAP.XSBuiltIns、System.DateUtils、System.TimeSpan)。

输出:

26-3-2016 -> 2016-03-26T02:00:00.000+01:00
27-3-2016 -> The given "27-3-2016 2:00:00" local time is invalid (situated within the missing period prior to DST).
28-3-2016 -> 2016-03-28T02:00:00.000+02:00

我怎样才能巧妙地规避这个问题？我可以使用 TTimeZone.Local.IsInvalidTime(ADateTime) 来检测无效日期，但是26-3-2016 2:00:00 是错误的(这正是我们转为 DST 的时间)，不是 27-3-2016 2:00 :00 - 所以我不知道如何调整“无效”日期。

Answer 1

有bug in unit System.DateUtils.pas (据我所知，10.1 中仍然存在)。

函数AdjustDateTime首先将日期和时间处理为本地时间，然后尝试将偏移量放入其中。由于在夏令时期间有一个“缺失的时间”(对于中欧来说是 2017 年 3 月 26 日)，因此在凌晨 1:59:59 之后，您会看到凌晨 3:00:00
如果您不小心使用了该句点(例如 2:17:35)，则会出现异常。

这也存在于其他函数中。

重现异常的简单代码(C++):

ShowMessage(ISO8601ToDate("2017-03-26T02:22:50.000Z",false));

但是这个运行正常:

ShowMessage(ISO8601ToDate("2017-03-26T02:22:50.000Z",true));`

现在为了避免异常，请使用 XSD.AsUTCDateTime，然后应用本地偏移量。C++ 示例:

 TTimeZone * localTz = TTimeZone::Local;
 TDateTime TimeSomething = localTz->ToLocalTime(XSD->AsUTCDateTime);

在您的情况下，本地时间确实无效(没有“2:00”)，或者您尝试将 UTC 时间视为本地时间的某个地方，这当然是无效的。解决这个问题，你的问题就解决了。

How can I graciously circumvent this? I can use TTimeZone.Local.IsInvalidTime(ADateTime) to detect invalid dates, but 26-3-2016 2:00:00 would be wrong (that's exactly the time we moved to DST), not 27-3-2016 2:00:00 - so I don't know how to adjust in case of the 'invalid' date.

此外，我认为您错过了 2016 年我们在 27.03 2:00 改为夏令时，但今年是 26-03，所以 27-3-2016 2:00:00 是完全无效的日期:)