IMath.Round

Синтаксис Fore

Round(Value: Double; Precision: Integer): Double;

Синтаксис Fore.NET

Round(Value: double; Precision: integer): double;

Параметры

Value. Округляемое вещественное число;

Precision. Количество дробных разрядов, до которого требуется округлить число.

Описание

Метод Round возвращает результат округления числа до указанного количества десятичных разрядов.

Комментарии

Значения входных параметров не могут быть пустыми.

Если количество дробных разрядов больше 0, то число округляется до указанного количества десятичных разрядов справа от десятичной запятой.

Если количество дробных разрядов равно 0, то число округляется до ближайшего целого.

Если количество дробных разрядов меньше 0, то число округляется слева от десятичной запятой.

Пример Fore

Для выполнения примера добавьте ссылку на системную сборку MathFin.

Sub UserProc;
Var
    r1, r2, r3, r4: Double;
Begin
    r1 := Math.Round(2.15,1);
    Debug.WriteLine(r1);
    r2 := Math.Round(-50.55,-2);
    Debug.WriteLine(r2);
    r3 := Math.Round(21.5,-1);
    Debug.WriteLine(r3);
    r4 := Math.Round(-1.475,2);
    Debug.WriteLine(r4);
End Sub UserProc;

В результате выполнения примера в окно консоли будут выведены результаты округления:

• Число и количество разрядов положительны: «2.2»;

• Число и количество разрядов отрицательны: «-100»;

• Число положительно, а количество разрядов отрицательно: «20»;

• Число отрицательно, а количество разрядов положительно: «-1.48».

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.MathFin;
…
Public Shared Sub Main(Params: StartParams);
Var
    r1, r2, r3, r4: double;
    Math: MathClass = New MathClass();
Begin
    r1 := Math.Round(2.15,1);
    System.Diagnostics.Debug.WriteLine(r1);
    r2 := Math.Round(-50.55,-2);
    System.Diagnostics.Debug.WriteLine(r2);
    r3 := Math.Round(21.5,-1);
    System.Diagnostics.Debug.WriteLine(r3);
    r4 := Math.Round(-1.475,2);
    System.Diagnostics.Debug.WriteLine(r4);
End Sub;

См. также:

IMath