Browse Source

rtl: fixed Min/MaxCurrency

mattias 6 years ago
parent
commit
ebdaed7149
1 changed files with 2 additions and 2 deletions
  1. 2 2
      packages/rtl/sysutils.pas

+ 2 - 2
packages/rtl/sysutils.pas

@@ -264,8 +264,8 @@ const
   // The below values are the safe limits, within every step exists.
   // The below values are the safe limits, within every step exists.
   // Since currency is a double it can take much larger values, but the result
   // Since currency is a double it can take much larger values, but the result
   // may differ from Delphi/FPC
   // may differ from Delphi/FPC
-  MaxCurrency: Currency =  450359962737.0495; // fpc: 922337203685477.5807;
-  MinCurrency: Currency = -450359962737.0496; // fpc: -922337203685477.5808;
+  MaxCurrency: Currency =  900719925474.0991; // fpc: 922337203685477.5807;
+  MinCurrency: Currency = -900719925474.0991; // fpc: -922337203685477.5808;
 
 
 Type
 Type
   TFloatFormat = (ffFixed,ffGeneral,ffExponent,ffNumber,ffCurrency);
   TFloatFormat = (ffFixed,ffGeneral,ffExponent,ffNumber,ffCurrency);