Техника программирования. Округление чисел в "Финансах без проблем"



Posted by Анатолий Таланин, г.Новосибирск on July 01, 1999 at 10:56:59:

In Reply to: Округление чисел в "Финансах без проблем" posted by Анатолий Анимица on June 29, 1999 at 10:22:42:

Тема округления чисел всё ещё остаётся злободневной для разработчиков. Учитывая интерес к ней, предлагаю ещё один вариант исполнения. Это решение учитывает и недавние, ещё не забытые наши проблемы при использовании больших чисел в своей работе, в том числе и в режиме округления.

* -----------------------------------------------------
:PRECISION Округление чисел
* -----------------------------------------------------
* ВХОДНЫЕ ПАРАМЕТРЫ: RO - Значение для округления
* PC - Точность округления
* 1 - до рублей
* 0.01 - до копейки
* 100 - до 100 рублей, ...
*
* ЛОКАЛЬНЫЕ ПЕРЕМЕННЫЕ: AA
*
* ВЫХОДНЫЕ ПАРАМЕТРЫ: RO - Результат округления
* -----------------------------------------------------
! RO < 0 PC = -PC
AA = 0
! RO > 1000000 AA = [tr RO / 1000000] * 1000000; RO = RO - AA
RO = [tr RO / PC + 0.5] * PC + AA
return



Пpишедшие ответы: