浏览代码

* 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;
 begin
   GetLocalTimeOffset(aDateTime,False,lOffset,lDst);
-  aOffSet:=lOffset;
+  aOffSet:=-lOffset* 60;
+  aDSTSave:=0;
   if lDST then
     aType:=lttDaylight
   else