Delphi Firemonkey获得UTC时间

问题描述

如何在Firemonkey中获得UTC时间？

我尝试了另一个Stackoverflow答案中的这段代码，但似乎GetSystemTime（）在FMX中不可用。

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

解决方法

如果将LibCorDapp - Contract添加到DateUtils子句中，则可以使用TTimeZone类，其Local类属性和ToUniversalTime方法：

uses