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



Автор: Dimka Maslov
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> «Округление» в большую сторону
Функция возвращает наименьшее число, большее чем Value, которое без остатка
делится на Divider
Зависимости: нет
Автор:       Dimka Maslov, [email protected], ICQ:148442121, Санкт-Петербург
Copyright:   Dimka Maslov
Дата:        20 мая 2002 г.
***************************************************** }
function RoundNext(Value, Divider: Integer): Integer;
asm
mov ecx, edx
cdq
idiv ecx
imul ecx
add eax, ecx
end;

Пример использования:

RoundNext(10, 3) // = 12
RoundNext(9, 3) // = 12

Далее: Округление в меньшую сторону »»