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



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

Домашний интернет здесь. | Отправляйся в захватывающее путешествие по сердцам Белгорода на https://bg.intim-gid.com | Хотите найти любовь в Братске? Тогда не упустите шанс познакомиться с прекрасными девушками на https://bratsk.feixxx.net. | Найдите свою вторую половинку среди миллионов анкет на https://dubna.feixxx.net - лучшем сайте для знакомств! | В поисках романтики и счастья приходится смело путешествовать по замечательному городу Новосибирск, где https://kzn.intim-gid.com помогает встретить самых привлекательных девушек. | Жаждете новых красивых знакомств? Загляните на https://novoros.intim-gid.com и найдите самых очаровательных девушек! | На самом популярном сайте знакомств в Магнитогорске - https://maykop.feixxx.net, вы найдете многочисленных прекрасных девушек. | В поисках любви и приключений? Легко! Перейдите на https://samara.intim-gid.com и раскрыйте бесконечные возможности. | Обнаружьте новые уровни романтики в Щелково с помощью https://shel.intim-gid.com и погрузитесь в волнующий мир знакомств. | Знакомства в Сургуте - https://surgut.intim-gid.com, где литературный стиль переплетается с магией романтики. | Занятие любимым делом приобретает новый смысл, когда рядом с вами прекрасные девушки с https://voskr.intim-gid.com. | Желаешь встретить девушку своей мечты? Попробуй https://yakutsk.intim-gid.com, лучший сайт для знакомств в Якутске.
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
  << Вернуться к Содержанию