Jenek111если уж я претендую на "Гуру":

Если дробная часть числа в точности равна 0,5, то функции CInt и CLng всегда округляют число до ближайшего четного числа. Например, 0,5 округляется до 0, а 1,5 до 2. Необходимо отличать функции CInt
и CLng от функций Fix и Int, которые выполняют усечение, а не округление дробной части числа. Кроме того, функции Fix и Int всегда возвращают значение с тем же типом данных, который был передан в аргументе.

Int. па любому.

помоему тебе ответили
тебе нужно усечение до целого ...

spivakСпасибо, пацаны! Я использовал функцию Инт! А чем она отличается от Фикс?
Не ругайтесь на меня :)

а хелп читать не пробовал?

курсор на инт и ф1

Различия между функциями в том, что Int для отрицательного значения аргумента возвращает ближайшее отрицательное целое, меньшее или равное указанному, а Fix ближайшее отрицательное целое число, большее либо равное указанному. Пример, int преобразует -8,4 в -9, а fix в -8

Владимир СанычДля той проблемы, которая тут обсуждается, замена Int на Fix не поможет!

а разве есть проблема?
вроде ее нет :))
поставит округление часов в подсчете з/п и все дела :))
типа как он пишет

х=9 баксов * int(часы)

пример

Dim MyNumber
MyNumber = Int(99.8) ' 99.
MyNumber = Fix(99.2) ' 99.

MyNumber = Int(-99.8) ' -100.
MyNumber = Fix(-99.8) ' -99.

MyNumber = Int(-99.2) ' -100.
MyNumber = Fix(-99.2) ' -99.