por exemplo

 

tenho o numero 6,3865

preciso de uma função que me retorne 6,38 ou seja retorne o numero com 2 casas decimais mas sem arrendondar, alguem conhece uma função que faça isso?

 

voce pode fazer assim:

numero=Int(numero*100)/100

 

A função Int só arredonda se o número for negativo nesse caso terá que usar o FIX

Ahhh blz...

Função assim desconheço ... vc vai ter q fazer uma assim:

 

 

*****************************************************

Private Sub Comando5_Click()

MsgBox F_FormataNumero(CCur(InputBox("numero")), 2)
End Sub
******************************************************

******************************************************

Private Function F_FormataNumero(ByVal x As Currency, ByVal num_casas As Byte) As Currency

x = x * 10 ^ num_casas
x = Fix(x)
x = x / 10 ^ num_casas

F_FormataNumero = x

End Function

******************************************************

 

Essa função trunca o número de acordo com as casas decimais q vc quer

 

t+