فهرست منبع

* TLocalTimeZone.FixDoGetOffsetsAndType

Michaël Van Canneyt 3 هفته پیش
والد
کامیت
f8e45083d0
1فایلهای تغییر یافته به همراه2 افزوده شده و 1 حذف شده
  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;
   lDst : Boolean;
 begin
 begin
   GetLocalTimeOffset(aDateTime,False,lOffset,lDst);
   GetLocalTimeOffset(aDateTime,False,lOffset,lDst);
-  aOffSet:=lOffset;
+  aOffSet:=-lOffset* 60;
+  aDSTSave:=0;
   if lDST then
   if lDST then
     aType:=lttDaylight
     aType:=lttDaylight
   else
   else