функция округления в большую сторону

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Espada
Местный житель
Сообщения: 336
Зарегистрирован: 07 май 2013, 17:32
Откуда: РБ, Минск

функция округления в большую сторону

Сообщение Espada »

Здравствуйте подскажите пожалуйста функцию которая округляет дробное число в большую сторону? например если получается 3.2, то выводит 4 и т.д. или может как-то round можно задать что бы так округлял?)
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
Buddy
Постоянный обитатель
Сообщения: 124
Зарегистрирован: 02 июн 2016, 15:18
Откуда: Галактика СПб

Re: функция округления в большую сторону

Сообщение Buddy »

Добрый день!

fRoundAny(3.1, 1.0, 2) = 4

Function fRoundAny (Sum: Double, Discr: Double, NeedRoundAny: Word): Double; external 'G_Common.dll';

Описание
Округление числа Sum с точностью Discr знаков с учетом NeedRoundAny правил.

Параметры
Sum - число для округления;
Discr - точность округления;
NeedRoundAny - Правило округления.
NeedRoundAny может принимать следующие значения:
0 - Не округлять;
1 - Применить арифметическое округление с точностью Discr;
2 - Округлять в большую сторону;
3 - Спец. алгоритм округления для РБ;
4 - Округлять в меньшую сторону.

Возвращаемое значение:
Результат округления.
Espada
Местный житель
Сообщения: 336
Зарегистрирован: 07 май 2013, 17:32
Откуда: РБ, Минск

Re: функция округления в большую сторону

Сообщение Espada »

Buddy писал(а):Добрый день!

fRoundAny(3.1, 1.0, 2) = 4

Function fRoundAny (Sum: Double, Discr: Double, NeedRoundAny: Word): Double; external 'G_Common.dll';

Описание
Округление числа Sum с точностью Discr знаков с учетом NeedRoundAny правил.

Параметры
Sum - число для округления;
Discr - точность округления;
NeedRoundAny - Правило округления.
NeedRoundAny может принимать следующие значения:
0 - Не округлять;
1 - Применить арифметическое округление с точностью Discr;
2 - Округлять в большую сторону;
3 - Спец. алгоритм округления для РБ;
4 - Округлять в меньшую сторону.

Возвращаемое значение:
Результат округления.
Спасибо огромное, всё отлично сработало)
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
Ответить