Возникла необходимость округлять числовые значения по правилам математики. К сожалению, 1с умеет округлять числа только по двум правилам - Окр15как10 либо Окр15как20. Однако, чтобы обеспечить наибольшую близость отдельного округленного числа к округляемому числу, следует соблюдать некоторые математические правила округления, про которые опубликовано немало статей (http://simple-math.ru/arithmetics/rounding-number.php, http://megaobuchalka.ru/3/31581.html, http://examchemistry.com/content/lesson/primenenie/taskcourse/okruglenie.html, http://ibrain.kz/matematika/pravila-okrugleniya). Все они сводятся к тому, что в математике имеется три основных правила округления числовых значений:
Правило 1. Если первая из отбрасываемых цифр больше или равняется 5, то последняя из сохраняемых цифр усиливается (увеличивается на единицу).
Правило 2. Если первая из отбрасываемых цифр меньше, чем 5, то усиление не делается.
Правило 3. Если отбрасываемая цифра 5, а за ней нет значащих цифр, то округление производится на ближайшее четное число, если есть, то последняя сохраняемая цифра усиливается.
Мои поиски готового кода, к сожалению, не обвенчались успехом, после чего я попытался решить проблему своими силами. Хочу поделиться с вами функцией, которая у меня получилась. Буду рад любому отзыву, который поможет исправить ошибки в коде или оптимизировать решение задачи.
Функция ОкруглитьПоПравилам (Число, Разрядность)
нЧислоРазрядность = Окр(Число, Разрядность, РежимОкругления.Окр15как10);
уЧислоРазрядность = Окр(Число, Разрядность+1, РежимОкругления.Окр15как10);
Остаток = ?(уЧислоРазрядность<нЧислоРазрядность, 0, Прав((уЧислоРазрядность-нЧислоРазрядность),1));
ПредшествуетНечетноеЧисло = Прав(нЧислоРазрядность,1)%2;
Возврат ?((Число(Остаток)=5 И ПредшествуетНечетноеЧисло) ИЛИ Число>уЧислоРазрядность, Окр(уЧислоРазрядность,Разрядность,РежимОкругления.Окр15как20), нЧислоРазрядность);
КонецФункции
