ARREDONDAR CASAS DECIMAIS EM 0,10

FININHO 15/11/2010 14:20:20
#357487

Para arredondar em 0,05 basta trocar o 10 pelo 20

Private Sub Command1_Click()
MsgBox ArredondaCentavos(Text1)
End Sub

Function ArredondaCentavos(valor As String) As String
ArredondaCentavos = ((Int(valor * 20)) + IIf(Int((valor * 20)) <> (valor * 20), 1, 0)) / 20
End Function