delphi 中本地时间和UTC时间转换

 

var
   pTime: _TIME_ZONE_INFORMATION;
   TimeNow: TDateTime;
begin
  GetTimeZoneInformation(pTime);//获取时区
  Bias := pTime.Bias;
  TimeNow := IncMinute(Now, Bias);
end;