Функция МАТЕМАТИЧЕСКОГО округления. Есть ли проще?

[KBO]

Доброе время суток
Полазив по просторам инета, нашел подходящую функцию которая делает МАТЕМАТИЧЕСКОЕ округление числа.
Чуть доработав ее до округления отрицательных чисел.

function MathRound(AValue: double; 
          APrecision: integer): double; 
var 
  db, db1, db2: double; 
  i: int64; 
  ii, ink, i1, LTypeNumber: integer; 
begin 
  begin
    if AValue < 0 then
      LTypeNumber := 0
    else LTypeNumber := 1;
    AValue := Abs(AValue);
  end;

  db := AValue-int(AValue); 
  ink := 1; 
  for ii := 1 to APrecision 
    do ink := ink*10; 
  db1 := db*ink; 
  db2 := AValue*ink*100; 
  i := trunc(int(db2)/100); 
  i1 := trunc(db2-i*100); 
  if i1 > 49 then 
    inc(i); 
  if LTypeNumber = 0 then
    result := -1*(i/ink)
  else result := i/ink;
end;

Возможно есть более простое решение…
Выдающее следующий результат (округление например до тысячных):

3,6145 = 3,615
3,6045 = 3,615
4,6445 = 4,645

Все другие стандартные функции рассчитаны на банковское округление – мне не подходит.
Например если взять "SimpleRoundTo(4.6445, -3)" то это будет = 4.644

[Sciv]

Если вы имеете в виду просто Round, то она существует со времён паскаля (когда он ещё даже не турбо был)

Также, как и Trunc.

UPDATE

Не пинайте меня, я уже понял всю глубину моего морального падения и невнимательности Был неправ, извините

[min@y™]

roundto.png

[Аватар]

StrToFloat(FloatToStr(число,ffFixed,15,2))

можно еще поискать открытый исходник функции DecimalRoundExt, по слухам нормально округляет

[KBO]

Сообщение от min@y™

Вложение 90866

Я говорил о МАТЕМАТИЧЕСКОМ округлении

showmessage(FloatToStr(RoundTo(2.3145, -3)));

= 2,314
блин, только ща заметил, и код что я нашел - "маху" дал

[Аватар]

В коде #4 конечно FloatToStrF а не FloatToStr

[min@y™]

Сообщение от KBO

Я говорил о МАТЕМАТИЧЕСКОМ округлении

15.png

[KBO]

Сообщение от min@y™

Вложение 90871

Ну конечно влияет последняя цифра (эта последняя цифра настраивает прибор), без нее не было бы этой темы... На которой уже очень много людей накололось

[min@y™]

Сообщение от KBO

Ну конечно влияет последняя цифра (эта последняя цифра настраивает прибор), без нее не было бы этой темы... На которой уже очень много людей накололось

Да я про погрешность, блин, при переводе dec ---> bin ---> dec.

[KBO]

Сообщение от min@y™

Да я про погрешность, блин, при переводе dec ---> bin ---> dec.

Главное чтоб округление было математическим (последняя цифра)... (там посмотрим, но не думаю)