diff --git a/components/fpspreadsheet/source/common/fpsutils.pas b/components/fpspreadsheet/source/common/fpsutils.pas index 386b71ca6..cd81ac0c6 100644 --- a/components/fpspreadsheet/source/common/fpsutils.pas +++ b/components/fpspreadsheet/source/common/fpsutils.pas @@ -153,7 +153,7 @@ function TryStrToFloatAuto(AText: String; out ANumber: Double; function TryFractionStrToFloat(AText: String; out ANumber: Double; out AIsMixed: Boolean; out AMaxDigits: Integer): Boolean; -function Round(AValue: Double): Integer; +function Round(AValue: Double): Int64; function cmToPts(AValue: Double): Double; inline; function EMUToIn(AValue: Int64): Double; inline; @@ -1854,7 +1854,7 @@ end; {@@ ---------------------------------------------------------------------------- Special rounding function which avoids banker's rounding -------------------------------------------------------------------------------} -function Round(AValue: Double): Integer; +function Round(AValue: Double): Int64; begin if AValue > 0 then Result := trunc(AValue + 0.5)