Round(X : Число [, P : Integer]) : Число
Округлить число

Функция Round округляет число X с указанной точностью P (количество цифр после запятой).

Для положительных чисел точная половина разряда округляется в большую сторону. Для отрицательных в меньшую.

Пример:

Procedure OnCreate;
Var
  C : Currency;
  F : Float;
Begin
  C := Round(100.49c);
  Warning('Round(100.49c) = ' + ToStr(C)); // 100.00

  C := Round(100.55c);
  Warning('Round(100.55c) = ' + ToStr(C)); // 101.00

  C := Round(-100.55c, 1);
  Warning('Round(-100.55c, 1) = ' + ToStr(C)); // -100.60

  F := Round(100.55);
  Warning('Round(100.55) = ' + ToStr(F)); // 101

  F := Round(-100.55, 1);
  Warning('Round(-100.55, 1) = ' + ToStr(F)); // -100.6

  F := Round(-1630.0, -3);
  Warning('Round(-1630.0, -3) = ' + ToStr(F)); // -2000
End;

Пример SQL:

Select Round(100.55c), Round(-100.55c, 1), Round(100.55), Round(-100.55, 1), Round(-1630.0, -3)

© RTIT