Функции 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