RoundMul(A, B : Currency; Precision : Integer) : Currency
Умножение Currency с указанной точностью.

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

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

Пример:

Procedure OnCreate;
var X:currency;
Begin
  X := RoundMul(1001.01c, 6.0006c, 4);
  Warning('1) ' + ToStr(X)); // 6006.6606

  X := RoundMul(1001.01c, 6.0006c, 2);
  Warning('2) ' + ToStr(X)); // 6006.66
End;

Пример SQL:

Select RoundMul(1001.01c, 6.0006c, 4)

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

© RTIT