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



Вопросы
  Возвести в степень
   Категория: Математика
  Как нарисовать календарь
   Категория: Текст и строки
  Вставить иконки в Grid
   Категория: Компоненты
  Удалить пробелы в начале и конце
   Категория: Текст и строки
  Поиск по EasyTable
   Категория: Базы данных
  Получить имена всех папок и файлов в директории
   Категория: Файловая система
  Listbox - элементы вверх-вниз
   Категория: Компоненты
  Автоматическое определения кодировки текста
   Категория: Текст и строки
  Cколько файлов есть в определённой папке
   Категория: Файловая система

Delphi - База Знаний: Округление в меньшую сторону

  << Вернуться к Содержанию  

{ **** UBPFD *********** by delphibase.endimus.com ****
>> В«ОкруглениеВ» в меньшую сторону

Функция возвращает наибольшее число,
меньшее или равное Value, которое
без остатка делится на Divider

Зависимости: нет
Автор:       Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright:   Dimka Maslov
Дата:        20 мая 2002 г.
***************************************************** }

function RoundPrev(Value, Divider: Integer): Integer;
asm
   mov ecx, edx
   cdq
   idiv ecx
   imul ecx
end;
Пример использования:

RoundPrev(10, 3) // = 9
RoundPrev(9, 3) // = 9
  << Вернуться к Содержанию