Sfoglia il codice sorgente

* Fix MaxDateTime constant (bug ID 28282)

git-svn-id: trunk@32775 -
michael 9 anni fa
parent
commit
a5eb3777de
1 ha cambiato i file con 2 aggiunte e 2 eliminazioni
  1. 2 2
      rtl/objpas/sysutils/sysstrh.inc

+ 2 - 2
rtl/objpas/sysutils/sysstrh.inc

@@ -35,8 +35,8 @@ type
 const
 const
   { For floattodatetime and VariantToDate }
   { For floattodatetime and VariantToDate }
 {$ifndef FPUNONE}
 {$ifndef FPUNONE}
-  MinDateTime: TDateTime =  -693593.0;     { 01/01/0001 12:00:00.000 AM }
-  MaxDateTime: TDateTime =  2958465.99999; { 12/31/9999 11:59:59.999 PM }
+  MinDateTime: TDateTime =  -693593.0;        { 01/01/0001 12:00:00.000 AM }
+  MaxDateTime: TDateTime =  2958465.99999999; { 12/31/9999 11:59:59.999 PM }
 
 
 {$if defined(FPC_HAS_TYPE_EXTENDED) or defined(FPC_HAS_TYPE_FLOAT128)}
 {$if defined(FPC_HAS_TYPE_EXTENDED) or defined(FPC_HAS_TYPE_FLOAT128)}
   MinCurrency: Currency = -922337203685477.5808;
   MinCurrency: Currency = -922337203685477.5808;