delphi UTC 获取转换

function UTCToLocalTimeOffsetMinutes: Int16;
Var UTC: TSystemTime;
   UTC2: TSystemTime;
   t  : TDateTime;
   t2 : TDateTime;
begin
 GetSystemTime(UTC);
 GetLocalTime(UTC2);
 t  := SystemTimeToDateTime(UTC);
 t2 := SystemTimeToDateTime(UTC2);
 Result := System.DateUtils.MinutesBetween(t,t2);
end;

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

function UTCToLocal(UTC: TDateTime): TDateTime;
begin
 Result := IncMinute(UTC, UTCToLocalTimeOffsetMinutes);
end;

方法2：

Uses
System.DateUtils;

UTC

function GetUTC(dt: TDateTime): TDateTime;
begin
 result := TTimeZone.Local.ToUniversalTime(dt);
end;

Local Time

function GetLocalTime(dt: TDateTime):TDateTime;
begin
 result := TTimeZone.Local.ToLocalTime(dt);
end;