FORMATAR TEXTBOX PARA EXIBIR MOEDA

USUARIO.EXCLUIDOS 19/11/2006 23:23:39
#185311
achei uma rotina no forum que ensina a formatar uma textbox para exibir
moeda da seguinte forma

Text1.Text = "" & Format(Text1.Text, "R$#,##0.00")
esta rotina funciona muito bem ate que se digite um numero de alguns milhares como R$12.345,67 a rotina tranforma o numero digitado em
R$1.234.567,00 a menos que o usurio digite a virgula depois do numero
cinco e em seguinda seis e sete. Para uma formatação que deve ser automatica isso é uma avacalhação. como resolver isso? o formato no painel de controle esta correto com o simbolo , como separador

deltanusigma
ESLEYSANCHES 19/11/2006 23:38:22
#185314 Resposta escolhida
Use assim amigo:

Text1.text = Format(Text1.text, "Currency")

hãã~, coloque isso no LostFocus quando ele perder foco assim a conversão é feita automaticamente !!


Espero que te ajude amigão !!
Abraços
ESLEYSANCHES 19/11/2006 23:41:22
#185315
Amigo para de ajudar ainda mais de uma olhadinha no exemplo em anexo !!

Abraços !!
TALES 19/11/2006 23:43:07
#185316
Dá uma olhada neste exemplo e vê se ajuda
USUARIO.EXCLUIDOS 19/11/2006 23:56:48
#185319
obrigado amigos vou testar as soluções
deltanusigma
USUARIO.EXCLUIDOS 20/11/2006 23:40:32
#185478
Tente assim:
Text1.Text = Format(Text1.Text, "Standard")



Tópico encerrado , respostas não são mais permitidas
Voltar