[syber]

Привет всем. Сразу оговорюсь, что я не супер-пупер программист, программирование - моё хобби и иногда кодирую простые программки. Поэтому, не относитесь сильно предвзято к моему коду.
У меня возникла задача округления чисел до сотых. Например:
32,325 мне нужно округлить до 32,33. 32,324 до 32,32. Т.е. произвести округление по математическим правилам. Функция RoundTo округляет 32,325 как 32,32. Меня это не устраивает. Расчеты финансовые и копейками пренебрегать не могу. Написал такую функцию под delphi 7.

Код:

function Okruglenie(x:real):real;
var
x1, x2, x3 : real;
begin
x1 := Frac(x);
x2 := x1*100;
x3 := Frac(x2);
if x3 >= 0.5 then x2 := x2 + 1 else x2 := x2;
if x2 >= 100 then x := Int(x)+1 else x := Int(x) + (Trunc(x2)/100);
Okruglenie := x;
end;

В результате у меня получается из числа 32,325 число 32,32. Но ведь по коду должно получиться 32.33

Решил эту проблему так:

Код:

if x3 >0.49999999999 then x2 := x2 + 1 else x2 := x2;

подскажите более деликатный способ решения этой проблемы

[Aristarh Dark]

SimpleRoundTo, спасет гиганта мысли

[syber]

Спасибо, хотел было обрадоваться, но все-равно округляет нечестно, например 32,995 округляет как 32,99. А должно давать 33.

[syber]

Модератор, приношу свои извинения. Функция SimpleRoundTo округляет точно по банковским правилам (а мне оно как раз и нужно).

банковское округление, (если отбрасываемые цифры больше 0.5, происходит округление вверх (от нуля), если меньше 0.5 - цифры отбрасываются, если отбрасываемая часть равна 0.5, то округление происходит в зависимости от четности предпоследней цифры),

Мои правила округления не соответствуют этим правилам. Большое спасибо за совет.

[syber]

Хотя, все-равно считает с ошибками

[Ultras]

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

Хотя, все-равно считает с ошибками

проверил щас, 32.325 округляет до 32.33, 32.324 округляет до 32.32 (проверял именно Вашу функцию), если есть вопросы, можете написать по ICQ 418018483

[s0Creator]

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

Модератор, приношу свои извинения. Функция SimpleRoundTo округляет точно по банковским правилам (а мне оно как раз и нужно).
Мои правила округления не соответствуют этим правилам. Большое спасибо за совет.

Тогда объясните свои правила.

[syber]

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

Тогда объясните свои правила.

Арифметическое округление. Т.е. 32,995 должно округляться как 33.00, а 32,324 как 32,32

[syber]

На другом форуме нашёл сообщение, что функции RoundTo и SimpleRoundTo в частных случаях выдают ошибки.

[syber]

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

проверил щас, 32.325 округляет до 32.33, 32.324 округляет до 32.32 (проверял именно Вашу функцию), если есть вопросы, можете написать по ICQ 418018483

27.325 у меня округляется как 27.32. Это точно. Ввод данных через компонент Edit
Такой результат дает и SimpleRoundTo и вариант функции с 0,5. Хотя, по логике (проверял с листочком) должно выдавать 27.33

[s0Creator]

Еще раз - Вы можете сказать правила по каким Вам надо округлять?
Например Вы привели правила :

банковское округление, (если отбрасываемые цифры больше 0.5, происходит округление вверх (от нуля), если меньше 0.5 - цифры отбрасываются, если отбрасываемая часть равна 0.5, то округление происходит в зависимости от четности предпоследней цифры),

и сказали что у Вас по другому.
Попробуйте сформулировать также четко.

[syber]

Все числа - денежные суммы.

Правило округления у меня должно быть таким:

суммы до 0,499 копейки округляются до 0 копеек, а суммы от 0,500 до 0,999 копейки округляются до 1 копейки

Т.е. 27,325 должно округляться как 27,33, а 27,32499 как 27,32 SimpleRoundTo в данном примере точно выводит 27,32 Ввожу числа через компонент Edit, преобразование через функцию StrToFloat

[s0Creator]

Прошу прощения - не заметил.
Сейчас найду арифметическое округление.
Но есть нюанс. Есть точность при переводе десятичные - двоичные.
Где то встречал.
Попробую найти как решается. ( но не сегодня )

[syber]

Большое спасибо за беспокойство и проявленное внимание.

[s0Creator]

Так проблема решена или покопаться в архивах?
Кстати как на счет типа Currency ?