Explorar o código

* TLocalTimeZone.FixDoGetOffsetsAndType

Michaël Van Canneyt hai 3 semanas
pai
achega
f8e45083d0
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  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