Функции VBA Int и Fix возвращают целую часть числа.
Int(число)
Fix(число)
Использование функций Int и Fix для преобразования различных типов числовых значений, что также поможет вам лучше понять их разницу при работе с отрицательными значениями:
Sub IntFixExample() MsgBox Int(1) 'Возвращает: 1 MsgBox Fix(1) 'Возвращает: 1 MsgBox Int(-1) 'Возвращает: -1 MsgBox Fix(-1) 'Возвращает: -1 MsgBox Int(2.9) 'Возвращает: 2 MsgBox Fix(2.9) 'Возвращает: 2 MsgBox Int(-2.9) 'Возвращает: -3 MsgBox Fix(-2.9) 'Возвращает: -2 MsgBox Int(4.5) 'Возвращает: 4 MsgBox Fix(4.5) 'Возвращает: 4 MsgBox Int(-4.5) 'Возвращает: -5 MsgBox Fix(-4.5) 'Возвращает: -4 MsgBox Int(0.424) 'Возвращает: 0 MsgBox Fix(0.424) 'Возвращает: 0 MsgBox Int("13") 'Возвращает: 13 MsgBox Fix("13") 'Возвращает: 13 MsgBox Int("-4.5") 'Возвращает: -5 MsgBox Fix("-4.5") 'Возвращает: -4 MsgBox Int(True) 'Возвращает: -1 MsgBox Fix(True) 'Возвращает: -1 MsgBox Int(False) 'Возвращает: 0 MsgBox Fix(False) 'Возвращает: 0 End Sub