Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Поиск по EasyTable
   Категория: Базы данных
  Функции дат в SQL
   Категория: Базы данных
  Компоненты Panel, GroupBox, Bevel, ScrollBox, Splitter
   Категория: Компоненты
  Удалить файл в Корзину
   Категория: Приложение
  Округление времени до 5 мин
   Категория: Базы данных
  Как получить код HTM страницы зная ее URL
   Категория: Интернет и Сети
  Перегенерировать все индексы Dbase
   Категория: Базы данных
  Удалить свой же exe-шник
   Категория: Приложение
  Как произвести поиск файлов во вложенных папках
   Категория: Файловая система

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
  << Вернуться к Содержанию