RoundDiv(A, B : Currency; Precision : Integer) : Currency
Деление Currency с указанной точностью.

Функция RoundDiv делит число A на B и округляет результат до Precision чисел после запятой.

Аргумент Precision должен быть меньше или равен 4.

Пример:

Procedure OnCreate;
Var
  X : Currency;
Begin
  X := RoundDiv(1000c, 6c, 1);
  Warning('1) ' + ToStr(X)); // 166.70

  X := RoundDiv(1000c, 6c, -1);
  Warning('2) ' + ToStr(X)); // 170.00
End;

Пример SQL:

Select RoundDiv(1000c, 6c, 1)

Смотри функцию RoundMul.

© RTIT