* Removed redundant assignments to result in UniversalTimeToLocal and LocalTimeToUniversal, Mantis #24582.

git-svn-id: trunk@24884 -

rtl/objpas/dateutil.inc

@@ -2466,13 +2466,12 @@ end;
 function UniversalTimeToLocal(UT: TDateTime; TZOffset : Integer): TDateTime;
 
 begin
-  Result := UT;
   if (TZOffset > 0) then
     Result := UT - EncodeTime(TZOffset div 60, TZOffset mod 60, 0, 0)
-  else if (TZOffset = 0) then
-    Result := UT
   else if (TZOffset < 0) then
-    Result := UT + EncodeTime(Abs(TZOffset) div 60, Abs(TZOffset) mod 60, 0, 0);
+    Result := UT + EncodeTime(Abs(TZOffset) div 60, Abs(TZOffset) mod 60, 0, 0)
+  else
+    Result := UT;
 end;
  
 Function LocalTimeToUniversal(LT: TDateTime): TDateTime;
@@ -2484,13 +2483,12 @@ end;
 Function LocalTimeToUniversal(LT: TDateTime;TZOffset: Integer): TDateTime;
 
 begin
-  Result := LT;
   if (TZOffset > 0) then
     Result := LT + EncodeTime(TZOffset div 60, TZOffset mod 60, 0, 0)
-  else if (TZOffset = 0) then
-    Result := LT
   else if (TZOffset < 0) then
-    Result := LT - EncodeTime(Abs(TZOffset) div 60, Abs(TZOffset) mod 60, 0, 0);
+    Result := LT - EncodeTime(Abs(TZOffset) div 60, Abs(TZOffset) mod 60, 0, 0)
+  else
+    Result := LT;
 end;
 
 {$else}