UPD: Use standard function to get time zone offset

This commit is contained in:
Alexander Koblov 2018-11-15 20:15:52 +00:00
commit 1292ba8ead

View file

@ -606,24 +606,8 @@ begin
end;
{$IF DEFINED(MSWINDOWS)}
procedure InitTimeZoneBias;
var
TZInfo: TTimeZoneInformation;
begin
case GetTimeZoneInformation(@TZInfo) of
TIME_ZONE_ID_UNKNOWN:
WinTimeZoneBias := TZInfo.Bias;
TIME_ZONE_ID_STANDARD:
WinTimeZoneBias := TZInfo.Bias + TZInfo.StandardBias;
TIME_ZONE_ID_DAYLIGHT:
WinTimeZoneBias := TZInfo.Bias + TZInfo.DaylightBias;
else
WinTimeZoneBias := 0;
end;
end;
initialization
InitTimeZoneBias;
WinTimeZoneBias := GetLocalTimeOffset;
if (Win32MajorVersion > 5) then
begin
Pointer(TzSpecificLocalTimeToSystemTime):= GetProcAddress(GetModuleHandle(Kernel32),