paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 00:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* win: fix GetLocalTimeOffset lower boundary

Browse Source 
git-svn-id: trunk@47323 -
This commit is contained in:
ondrej 2020-11-05 12:54:35 +00:00
parent 691fb2c9fe
commit 39674e2852
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win/sysutils.pp
View File

@ -898,7 +898,7 @@ begin
DSTStart := DSTStart + (TZInfo.Bias+TZInfo.StandardBias)/MinsPerDay;
DSTEnd := DSTEnd + (TZInfo.Bias+TZInfo.DaylightBias)/MinsPerDay;
end;
if (DateTime>DSTStart) and (DateTime<DSTEnd) then
if (DSTStart<=DateTime) and (DateTime<DSTEnd) then
Offset := TZInfo.Bias+TZInfo.DaylightBias
else
Offset := TZInfo.Bias+TZInfo.StandardBias;