TOP
Функция VBA: Round
Описание
Функция VBA Round округляет число до указанного числа знаков после запятой.
Синтаксис Round
Round(число, количество_десятичных_знаков)
Пример VBA Round
Использование функции Round для округления числа до 2-х знаков после запятой:
- Sub RoundExample1()
-
- number = 12.3456
-
- round = Round(number, 2)
-
- MsgBox round
-
- End Sub
Sub RoundExample1()
number = 12.3456
round = Round(number, 2)
MsgBox round 'Возвращает 12.35
End Sub
Использование функции Round для округления различных числовых значений:
- Sub RoundExample2()
-
- MsgBox Round(14.2)
- MsgBox Round(-14.2)
- MsgBox Round("14.2")
- MsgBox Round("-14.2")
-
- MsgBox Round(9.5)
- MsgBox Round(-9.5)
-
- MsgBox Round(1.25, 1)
- MsgBox Round(50, 1)
-
- MsgBox Round(4532.6351, 2)
-
- End Sub
Sub RoundExample2()
MsgBox Round(14.2) 'Возвращает: 14
MsgBox Round(-14.2) 'Возвращает: -14
MsgBox Round("14.2") 'Возвращает: 14
MsgBox Round("-14.2") 'Возвращает: -14
MsgBox Round(9.5) 'Возвращает: 10
MsgBox Round(-9.5) 'Возвращает: -10
MsgBox Round(1.25, 1) 'Возвращает: 1.2
MsgBox Round(50, 1) 'Возвращает: 50
MsgBox Round(4532.6351, 2) 'Возвращает: 4532.64
End Sub