Округление числа

[Фаризочка]

ПРивет форуму! такая проблема надо округлить число если 17,4232 то 17 а если 17,896 то 18 здесь получается if использую или как?

[Valio]

Это правила округления. Используй больше/равно.

[Пепел Феникса]

есть функция Round

[Фаризочка]

спасибо )))))

[gesper]

Подниму тему, чтоб не плодить новых.

Есть число 100, если его округлять до сотых, то будет 100, но если запустить округление инвертированного числа -100, то программа выдает -99,99.
Пока разбирался написал для себя функцию исправляющую этот прикол жизни(см. ниже). Я прав или все же есть функция, которая в обычной человеческой логиче будет округлять?

function ExtSimpleRoundTo(const AValue: Double; const ADigit: TRoundToRange = -2):Double ;
var
  X,Y:Double;
  D,i:Integer;
begin
  X:=AValue;
  if X>=0 then
    math.SetRoundMode(rmUP)
  else
  begin
    {Пример: Чтобы -100, после прохождения функции не становилось -99,999}
    math.SetRoundMode(rmDown);
    D:=ADigit*-1;
    {Функция округляет в большую сторону, чтобы -100 округлить вверх и получить те же -100 надо прибавить 0,01 для случая округления до сотых}
    Y:=1;
    for i:=1 to D do
    begin
      Y:=Y*10;
    end;
    Y:=1/Y;
    X:=X-Y;
  end;
  Result:=Math.SimpleRoundTo(X,ADigit);
end;

[chertovich]

Для округления до указанного значения

RoundTo