From 8d99b544d4bb26cf90a14ca6425f8b65464dab5c Mon Sep 17 00:00:00 2001
From: michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Fri, 21 Aug 2015 10:36:30 +0000
Subject: [PATCH] * Correct for different meaning of TZOffset

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@31356 3ad0048d-3df7-0310-abae-a5850022a9f2

Gbp-Pq: Name Correct-for-different-meaning-of-TZOffset.patch
---
 fpcsrc/packages/rtl-objpas/src/inc/dateutil.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fpcsrc/packages/rtl-objpas/src/inc/dateutil.inc b/fpcsrc/packages/rtl-objpas/src/inc/dateutil.inc
index c90c83de..fc7f87a1 100644
--- a/fpcsrc/packages/rtl-objpas/src/inc/dateutil.inc
+++ b/fpcsrc/packages/rtl-objpas/src/inc/dateutil.inc
@@ -2532,7 +2532,7 @@ end;
 function UniversalTimeToLocal(UT: TDateTime): TDateTime;
 
 begin
-  Result:=UniversalTimeToLocal(UT,GetLocalTimeOffset);
+  Result:=UniversalTimeToLocal(UT,-GetLocalTimeOffset);
 end;
 
 function UniversalTimeToLocal(UT: TDateTime; TZOffset : Integer): TDateTime;
@@ -2549,7 +2549,7 @@ end;
 Function LocalTimeToUniversal(LT: TDateTime): TDateTime;
 
 begin
-  Result:=LocalTimeToUniversal(LT,GetLocalTimeOffset);
+  Result:=LocalTimeToUniversal(LT,-GetLocalTimeOffset);
 end;
 
 Function LocalTimeToUniversal(LT: TDateTime;TZOffset: Integer): TDateTime;
-- 
2.30.2