Merged revisions 3201 via svnmerge from

svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r3201 | micha | 2006-04-13 18:32:07 +0200 (do, 13 apr 2006) | 1 line
  
  fix datetime from/to timestamp conversion (delphi compat)
........

git-svn-id: branches/fixes_2_0@3202 -

rtl/objpas/sysutils/dati.inc

@@ -57,14 +57,14 @@ end;
 function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;
 begin
   result.Time := Trunc(Frac(DateTime) * MSecsPerDay);
-  result.Date := 1 + DateDelta + Trunc(System.Int(DateTime));
+  result.Date := DateDelta + Trunc(System.Int(DateTime));
 end ;
 
 {   TimeStampToDateTime converts TimeStamp to a TDateTime value   }
 
 function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime;
 begin
-  result := (TimeStamp.Date - DateDelta - 1) + (TimeStamp.Time / MSecsPerDay);
+  result := (TimeStamp.Date - DateDelta) + (TimeStamp.Time / MSecsPerDay);
 end ;
 
 {   MSecsToTimeStamp   }