Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Получить короткий путь файла (изменив русские буквы) если есть длинный и на оборот
Категория: Файловая система
Delphi - База Знаний: Округление в большую сторону
{ **** UBPFD *********** by delphibase.endimus.com ****
>> В«ОкруглениеВ» в большую сторону
Функция возвращает наименьшее число, большее чем Value, которое без остатка
делится на Divider
Зависимости: нет
Автор: Dimka Maslov, mainbox@endimus.ru, 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