RoundDown(Value: Double; Precision: Integer): Double;
RoundDown(Value: double; Precision: integer): double;
Value. Rounded real number.
Precision. The number of decimal places, to which a number must be rounded.
The RoundDown method returns the result of rounding to the nearest value, less by module.
Values of input parameters cannot be empty.
If the number of decimal places is greater than 0, the number is rounded down to the specified number of decimal places after a decimal separator.
If the number of decimal places is equal to 0, the number is rounded down to the nearest integer.
If the number of decimal places is less than 0, the number is rounded down to the set number of decimal places before the decimal separator.
The RoundDDown method is similar to the IMath.Round method, except that the number is always rounded down.
To execute the example, add a link to the MathFin system assembly.
Sub UserProc;
Var
r1, r2, r3, r4: Double;
Begin
r1 := Math.RoundDown(2.15,1);
Debug.WriteLine(r1);
r2 := Math.RoundDown(-50.654,-2);
Debug.WriteLine(r2);
r3 := Math.RoundDown(21.5,-1);
Debug.WriteLine(r3);
r4 := Math.RoundDown(-1.475,2);
Debug.WriteLine(r4);
End Sub UserProc;
After executing the example the console window displays rounding results:
A number and the number of decimal places are positive: 2.1.
A number and the number of decimal places are negative: 0.
A number is positive and the number of decimal places is negative: 20.
A number is negative and the number of decimal places is positive: -1.47.
The requirements and result of the Fore.NET example execution match with those in the Fore example.
Imports Prognoz.Platform.Interop.MathFin;
…
Public Shared Sub Main(Params: StartParams);
Var
r1, r2, r3, r4: double;
Math: MathClass = New MathClass();
Begin
r1 := Math.RoundDown(2.15,1);
System.Diagnostics.Debug.WriteLine(r1);
r2 := Math.RoundDown(-50.654,-2);
System.Diagnostics.Debug.WriteLine(r2);
r3 := Math.RoundDown(21.5,-1);
System.Diagnostics.Debug.WriteLine(r3);
r4 := Math.RoundDown(-1.475,2);
System.Diagnostics.Debug.WriteLine(r4);
End Sub;
See also: