* Added GetLocalTimeOffset function

git-svn-id: trunk@21865 -

rtl/objpas/sysutils/dati.inc

@@ -1394,3 +1394,10 @@ begin
   DateTime:=tmp;
 end;
 
+{$IFNDEF HAS_LOCALTIMEZONEOFFSET}
+Function GetLocalTimeOffset : Integer;
+
+begin
+  Result:=0;
+end;
+{$ENDIF}

rtl/objpas/sysutils/datih.inc

@@ -186,3 +186,4 @@ Procedure GetLocalTime(var SystemTime: TSystemTime);
 
 procedure ReplaceTime(var dati:TDateTime; NewTime : TDateTime); inline;
 procedure ReplaceDate(var DateTime: TDateTime; const NewDate: TDateTime); inline;
+function GetLocalTimeOffset: Integer;

rtl/unix/sysutils.pp

@@ -33,7 +33,7 @@ interface
 {$DEFINE HASUNIX}
 {$DEFINE HASCREATEGUID}
 {$DEFINE HAS_OSUSERDIR}
-
+{$DEFINE HAS_LOCALTIMEZONEOFFSET}
 uses
   Unix,errors,sysconst,Unixtype;
 
@@ -1401,6 +1401,12 @@ begin
   Flush(Output);
 end;
 
+function GetLocalTimeOffset: Integer;
+
+begin
+ Result := -Tzseconds div 60; 
+end;
+
 {****************************************************************************
                               Initialization code
 ****************************************************************************}

rtl/win/sysutils.pp

@@ -30,7 +30,7 @@ uses
 {$DEFINE HAS_OSCONFIG}
 {$DEFINE HAS_OSUSERDIR}
 {$DEFINE HAS_CREATEGUID}
-
+{$DEFINE HAS_LOCALTIMEZONEOFFSET}
 { Include platform independent interface part }
 {$i sysutilh.inc}
 
@@ -587,6 +587,25 @@ begin
   windows.Getlocaltime(SystemTime);
 end;
 
+function GetLocalTimeOffset: Integer;
+
+var 
+  TZInfo: TTimeZoneInformation;
+
+begin
+   case GetTimeZoneInformation(TZInfo) of
+     TIME_ZONE_ID_UNKNOWN:
+       Result := TZInfo.Bias;
+     TIME_ZONE_ID_STANDARD:
+       Result := TZInfo.Bias + TZInfo.StandardBias;
+     TIME_ZONE_ID_DAYLIGHT:
+       Result := TZInfo.Bias + TZInfo.DaylightBias;
+     else
+       Result := 0;
+   end;
+end; 
+ 
+                                                                    
 
 {****************************************************************************
                               Misc Functions