Delphi从UTC (GMT)返回时差
Delphi/Pascal view sourceprint?1 function TimeZoneBias: Integer;
var
TZI: Windows.TTimeZoneInformation; // info about time zone
begin
if Windows.GetTimeZoneInformation(TZI) = Windows.TIME_ZONE_ID_INVALID then
SysUtils.RaiseLastOSError;
Result := TZI.Bias
end;
转载于//www.cnblogs.com/MaxWoods/archive/2012/10/07/2714604.html
还没有评论,来说两句吧...