Я использовал этот код для печати некоторых круглых выходов.
Private Sub TestRound()
Dim i As Double
Dim vTest As Double
vTest = 17.005
For i = 1 To 10
Debug.Print vTest, Round(vTest, 2)
vTest = vTest + 0.01
Next i
End Sub
Вот выходы (начальное значение, округленное значение):
( 17.005, 17 )
( 17.015, 17.02 )
( 17.025, 17.03 )
( 17.035, 17.04 )
( 17.045, 17.05 )
( 17.055, 17.06 )
( 17.065, 17.07 )
( 17.075, 17.08 )
( 17.085, 17.09 )
( 17.095, 17.1 )