Функция CInt

Функция CInt(Conversion to Integer) используется для приведения выражения в тип Integer

Функция CInt возвращает значение аргумента, преобразованное в числовой целый тип данных Integer. Дробная часть при этом округляется

Expression

Любое числовое выражение или строка,представляющая число от -32768 до 32767
Если числовое значение Expression не попадает в диапазон допустимых значений, происходит ошибка стадии выполнения Overflow.
Если Expression имеет тип данных String,то он должен быть числом, иначе возникает ошибка стадии выполнения Type mismatch.
Если дробная часть Expression равна 0.5, CInt всегда округляет его до ближайшего четного числа, т.е. CInt(2.5)= 2, a CInt(1.5)= 2

Dim A, retval
A=1234.5678  ' A имеет тип Double
retval = CInt(A)' преобразуем в Integer
Debug.Print retval ' получаем 1235