Pārlūkot izejas kodu

* TLocalTimeZone.FixDoGetOffsetsAndType

Michaël Van Canneyt 3 nedēļas atpakaļ
vecāks
revīzija
f8e45083d0
1 mainītis faili ar 2 papildinājumiem un 1 dzēšanām
  1. 2 1
      packages/rtl-objpas/src/inc/dateutil.inc

+ 2 - 1
packages/rtl-objpas/src/inc/dateutil.inc

@@ -3885,7 +3885,8 @@ var
   lDst : Boolean;
 begin
   GetLocalTimeOffset(aDateTime,False,lOffset,lDst);
-  aOffSet:=lOffset;
+  aOffSet:=-lOffset* 60;
+  aDSTSave:=0;
   if lDST then
     aType:=lttDaylight
   else