Форум » Clipper » Кто может поделиться исходниками RoundTo(N,Dec,[Round5toUp] от suv7 » Ответить
Кто может поделиться исходниками RoundTo(N,Dec,[Round5toUp] от suv7
clip_ppr: Проблема с округлением. Кто может поделиться исходниками RoundTo(N,Dec,[Round5toUp] от suv7 ?
Ответов - 12
Dima: http://slil.ru/26175060
suv2: там ошибки правильная версия тут http://slil.ru/26182101
suv2: Хочу заметить, что это самая правильная функция, среди всех других Обычно, добавляют-отнимают маленькое число, потом округляют, что принципиально неверно Для одних чисел такие добавления могут быть несущественны, для других - могут искажать картину Мой набор функций отталкивается от установленного числа знаков, которым можно верить, принимает все решения с учетом заданной точности, подправляет число только тогда, когда это действительно нужно, при этом убеждается в том, что поправление подействовало, а так же умеет округлять 5 в четную сторону, а не в большую, что позволяет избежать систематического завышения результата.
PSP: Извините, что в старую тему пиши, но тоже понадобилась эта функция. Поделитесь, пжалста... По указанным линкам уже ничего нет, естественно... :)
Dima: PSP Держи http://files.mail.ru/PL1ENE
PSP: Благодарю!
sergey5703: Если Вас не затруднит, можно поместить архив на slil.ru. С files.mail.ru у меня не скачивается.
Dirna: sergey5703, держи ... "http://slil.ru/28616064"
sergey5703: Спасибо
AlexMyr: Может быть у кого есть сабж? Спасибо.
exmedic: Round от SUV(и не только) лежит здесь http://moemesto.ru/georgtor/file/13123532/Round.rar
AlexMyr: exmedic Спасибо большое!
полная версия страницы