Delphi Firemonkey获得UTC时间

在Firemonkey中如何获得UTC时间

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

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

---

如果将

DateUtils

添加到

uses

子句中，则可以使用类及其类属性和方法：

---

是Microsoft Windows操作系统中的一个函数。因此，如果你的应用程序只需要在Windows上运行，你可以使用它——即使是在FXM应用程序中。但是，如果你需要该应用程序在其他操作系统（或者我通常说的“其他‘操作系统’”）上运行，它确实是不可用的。在第一种情况下，只需将

Winapi.Windows

添加到

uses

子句中即可。这绝对是一款Firemonkey应用程序，面向那些“其他操作系统”

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