Delphi Firemonkey 获取 UTC 时间

Question

如何在 Firemonkey 中获取 UTC 时间？

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

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

Answer 1

如果在uses子句中加上DateUtils，就可以使用TTimeZone class, its Local class property, and the ToUniversalTime的方法：

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

Delphi Firemonkey get UTC time