function GetZoneTime:TDateTime;
var
pTime: _TIME_ZONE_INFORMATION;
TimeNow: TDateTime;
Bias:LongInt;
begin
Result := Now;
GetTimeZoneInformation(pTime);//获取时区
Bias := pTime.Bias;
TimeNow := IncMinute(Now, Bias);
Result := TimeNow;
end;
Delphi7 获取标准UTC时间
最新推荐文章于 2023-04-08 10:29:44 发布