Função de arredondamento no Visual Basic
A função a seguir efetua o arredondamento em um determinado valor dependendo no número de casas decimais que se entra como parâmetro:
Function Arredonda(Valor as double, Casas as integer) as double
Arredonda = Int ( Valor * 10^Casas+0.5) / 10^Casas
End Function
‘Use desta forma:
Arredonda (45.3246, 3) para obter 45.325
‘Para trabalhar com dinheiro use a função a seguir:
Function Arredonda2Casas(Valor as double) as single
Arredonda2Casas = Int ( (Valor * 100 +0.5) / 100
End Function
