paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-22 14:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix MaxDateTime constant (bug ID 28282)

Browse Source 
git-svn-id: trunk@32775 -
This commit is contained in:
michael 2015-12-28 14:23:23 +00:00
parent 9689bcc34b
commit a5eb3777de
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/sysutils/sysstrh.inc
View File

@ -35,8 +35,8 @@ type
const
{ For floattodatetime and VariantToDate }
{$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)}
MinCurrency: Currency = -922337203685477.5808;