FORMATACAO DE CAMPOS

USUARIO.EXCLUIDOS 05/06/2007 14:37:20
#219855

Exemplo:

Dim i As Integer

i = 100
MsgBox Format(i, "currency")

USUARIO.EXCLUIDOS 05/06/2007 14:43:11
#219859

Como estou começando agora nao intendi oque vc quiz dizer frau

USUARIO.EXCLUIDOS 05/06/2007 14:47:56
#219862

Nao deu certo nenhuma forma que vcs me passaram

USUARIO.EXCLUIDOS 05/06/2007 14:54:14
#219865

Deu certo
:)
Eu tava colocando assim

Private Sub txtvalorprincipal_Change()
txtvalorprincipal.Text = "" & Format(txtvalorprincipal.Text, "R$#,##0.00")
End Sub

Tinha que colocar assim

Private Sub txtvalorprincipal_LostFocus()
txtvalorprincipal.Text = "" & Format(txtvalorprincipal.Text, "R$#,##0.00")
End Sub

O LostFocus do lugar de Change
Valeu

USUARIO.EXCLUIDOS 05/06/2007 16:42:08
#219888

Cara, tenta assim:

Text1.Text = Format(Text1.Text, "R$ #,###,##0.00")

Espero ter te ajudado.

USUARIO.EXCLUIDOS 05/06/2007 19:38:34
#219921 Resposta escolhida

GMANCINE...
ISSO E GARANTIDO QUE DE CERTO...

 FORMAT(CCUR(TEXT1.TEXT), "#,##0.00;(#,##0.00)")

QUALQUER COISA POSTA AI...

USUARIO.EXCLUIDOS 06/06/2007 11:29:43
#220004

tenta assim...
testei aqui e deu certo era so colocar o ccur

  Text1.Text = Formatc(ccur(Text1.Text), "R$ #,###.00")

CLEVERTON 10/06/2007 19:31:58
#220577

GMANCINE

O código que eu te passei e o código que todo o pessoal te passou funciona perfeitamente

vc tem que ver o que está errado em seu código, crie outro projeto no SECO e teste. e depois poste aqui

Página 2 de 2 [18 registro(s)]

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

Voltar