Delphi Firemonkey 获取UTC时间

Question

如何在 Firemonkey 中获得 UTC 时间？

我从另一个 Stackoverflow 答案中尝试了此代码，但似乎 GetSystemTime() 在 FMX 中不可用。

function NowUTC: TDateTime;
Var UTC: TSystemTime;
begin
  GetSystemTime(UTC);
  Result := SystemTimeToDateTime(UTC);
end;

Answer 1

如果添加DateUtils到uses子句，则可以使用TTimeZone类、其Local类属性和ToUniversalTime方法：

ShowMessage(DateTimeToStr(TTimeZone.Local.ToUniversalTime(Now)));