* Changed MinDateTime for FloatToDateTime and VariantToDate to 01/01/0001

git-svn-id: trunk@8534 -

rtl/objpas/sysutils/sysstrh.inc

@@ -39,8 +39,8 @@ type
    End;
 
 const
-  { For floattodatetime }
-  MinDateTime: TDateTime = -657434.0;      { 01/01/0100 12:00:00.000 AM }
+  { For floattodatetime and VariantToDate }
+  MinDateTime: TDateTime =  -693593.0;     { 01/01/0001 12:00:00.000 AM }
   MaxDateTime: TDateTime =  2958465.99999; { 12/31/9999 11:59:59.999 PM }
 
 {$if defined(FPC_HAS_TYPE_EXTENDED) or defined(FPC_HAS_TYPE_FLOAT128)}