ARREDONDAMENTO E TRUNCAMENTO FORMAT

USUARIO.EXCLUIDOS 25/07/2005 11:12:40
#95868


O negocio é o seguinte, tenho uma string com o valor

1,980 ou 1,981 ou 1,984 ou 1,988


se eu usar o format(..."0.00") ele ira tirar a 3 casa normalmente, mas ira usar a regra de arredondamento se a 3 casa for >=5 ele ira para 1,99 se menor que 5 vai para 1,98

como faço para formatar em 2 casas sem que ele arrenda? independente do valor da terceira casa queria que mantese os dois depois da virgula sem alterar ou seja truncamento.

hoje eu faço isso manualmente, mas será que tem alguma coisa que me retorne isso pronto?

Obrigado
LEANDRO.LUIZ 25/07/2005 11:26:51
#95872
Resposta escolhida
Coloque esta função em um módulo.

Public Function Trunca(vgValor As Double, vgNumDecimais As Variant) As Currency
Trunca = Int(Val(Str(vgValor * 10 ^ vgNumDecimais))) / 10 ^ vgNumDecimais 'retorna o valor corrigido
End Function


ai é so chamar ela passando como parametro o valor a ser truncado, e o numero de casas decimais a ser truncado

Ex.: vVar1 = Trunca(vVlrTruncar,2)
USUARIO.EXCLUIDOS 25/07/2005 11:45:36
#95875
Cara valeu...é isso mesmo!


Até mais
LEANDRO.LUIZ 25/07/2005 11:48:07
#95876
Se sua dúvida foi sanada, encerre o tópico...ok..
Tópico encerrado , respostas não são mais permitidas