FORMATA CAMPO TEXT PARA CAMPO MONETARIO.

USUARIO.EXCLUIDOS 20/01/2011 08:26:41
#362804
Bom dia pessoal.

pessoal tenho um campo que recebe o valor dessa forma, pois esse valor vem de uma etiqueta de codigo de barras de balança.

ex: 00334

gostaria que formata-se o valor e fica-se dessa maneira: 3,34

como fazer essa formatação? pois já fiz aquela #,##0,00 e não deu certo
JONATHANSTECKER 20/01/2011 08:36:53
#362805 Resposta escolhida 
MsgBox (Format(CInt([Ô]00334[Ô]) / 100, [Ô]#,##0.00[Ô]))
ADRIANOM 20/01/2011 08:49:34
#362806
Parceiro, o jeito mais rápido e acho o mais fácil é ...
Eu costumo colocar na função LostFocus do text1

  text1.text = Format(text1.text, [Ô]Currency[Ô])


Dessa forma ele te dará a máscara assim R$3,34
Ok?
Se te ajudei, me pontue!
ROBIU 20/01/2011 09:18:43
#362809
Citação:

MsgBox (Format(CInt([Ô]00334[Ô]) / 100, [Ô]#,##0.00[Ô]))


Desta forma você pode ter um [Ô]estouro de pilha[Ô] no seu projeto. Isso porque CInt() deve ser usado para pequenos valores e pode ser que o valor seja maior que a função suporte, causando o erro [Ô]Run-Time error 6 - Overflow.
Ex se usar este valor:
  Text2.Text = (Format(CInt([Ô]0033409[Ô]) / 100, [Ô]#,##0.00[Ô]))


Citação:

text1.text = Format(text1.text, [Ô]Currency[Ô])



Neste código, não vai acrescentar os centavos. [Ô]00334[Ô]= 334,00

Use uma das formas a seguir:

Text2.Text = FormatNumber(CDbl(Text1.Text) / 100, 2)
Text2.Text = FormatCurrency(CDbl(Text1.Text) / 100, 2)
Text2.Text = (Format(CDbl(Text1.Text) / 100, [Ô]#,##0.00[Ô]))
Text2.Text = Format(CDbl(Text1.Text) / 100, [Ô]Currency[Ô])
JONATHANSTECKER 20/01/2011 09:38:24
#362812
ROBIU, Perfeito cara!
Agradeço sua correção sobre minha resposta!

O exemplo que fiz estava limitado a uma maskara.
USUARIO.EXCLUIDOS 20/01/2011 11:34:08
#362834
obg galera deu certinho, valeu mesmo pela força.
Tópico encerrado , respostas não são mais permitidas
Voltar