delphi - 有没有跨平台的方法将本地时间转换为UTC？

Question

如何在所有平台(Android/iOS/Mac/Windows)上将本地时间转换为 UTC？在 Windows 上我使用这个函数:

function AlLocalDateTimeToGMTDateTime(Const aLocalDateTime: TDateTime): TdateTime;

  {--------------------------------------------}
  function InternalCalcTimeZoneBias : TDateTime;
  const Time_Zone_ID_DayLight = 2;
  var TZI: TTimeZoneInformation;
      TZIResult: Integer;
      aBias : Integer;
  begin
    TZIResult := GetTimeZoneInformation(TZI);
    if TZIResult = -1 then Result := 0
    else begin
      if TZIResult = Time_Zone_ID_DayLight then aBias := TZI.Bias + TZI.DayLightBias
      else aBias := TZI.Bias + TZI.StandardBias;
      Result := EncodeTime(Abs(aBias) div 60, Abs(aBias) mod 60, 0, 0);
      if aBias < 0 then Result := -Result;
    end;
  end;

begin
  Result := aLocalDateTime + InternalCalcTimeZoneBias;
end;

是否有我可以使用的跨平台等效工具？

Answer 1

调用TTimeZone.ToUniversalTime来自System.DateUtils单元。在相反的方向，您使用 TTimeZone.ToLocalTime 。您不仅可以丢弃现有代码，还可以用单个跨平台函数调用替换它。

熟悉这个单元是一个谨慎的举动。