FORMATACAO DE CAMPOS

USUARIO.EXCLUIDOS 05/06/2007 10:07:40
#219785
Ola eu tenho esse seguinte codigo:

Private Sub Command3_Click()
Text1.Text = Val(txtvalorprincipal) + Val(txtcorrecaomonetaria)
Text2.Text = Val(Text1) / 1.25971
Text3.Text = Val(Text2) * 1.8029
Text5.Text = Val(Text3) / Val(txtquantidadedeparcelas)
Text6.Text = Val(Text5) * (Val(txtquantidadedeparcelas) - Val(txtquantidadedeparcelasemaberto))
Text4.Text = Val(Text3) - Val(Text6)
End Sub


Como que eu faço para formatar os campos TEXT1,TEXT2,TEXT3,TEXT5,TEXT6,TEXT4, gostaria que a formatação fosse na forma de dinheiro R$.

Obrigado
CLEVERTON 05/06/2007 10:19:22
#219788
Text1 = Format(Ccur(Text1) / 1.25971, "Currency")
USUARIO.EXCLUIDOS 05/06/2007 10:28:32
#219791
Não deu certo nao :(
USUARIO.EXCLUIDOS 05/06/2007 11:00:30
#219796
Tente as seguintes modificações:

Private Sub Command3_Click()
  Text1.Text = format(cdbl(txtvalorprincipal) + cdbl(txtcorrecaomonetaria),"STANDARD")
  Text2.Text = format(cdbl(Text1) / 1.25971,"STANDARD")
  Text3.Text = format(cdbl(Text2) * 1.8029,"STANDARD")
  Text5.Text = format(cdbl(Text3) / cdbl(txtquantidadedeparcelas),"STANDARD")
  Text6.Text = format(cdbl(Text5) * (cdbl(txtquantidadedeparcelas) - cdbl (txtquantidadedeparcelasemaberto)),"STANDARD")
  Text4.Text = format(cdbl(Text3) - cdbl(Text6),"STANDARD")
End Sub
USUARIO.EXCLUIDOS 05/06/2007 11:04:40
#219798
OBS.: se não der certo com o CDBL use o VAL (MESMO).
USUARIO.EXCLUIDOS 05/06/2007 13:48:46
#219838
FRAU Tudo bem
Deu certinho mais gostaria que ficasse com o R$ na frente dos numeros como que faz

Obrigado
USUARIO.EXCLUIDOS 05/06/2007 14:04:33
#219842
Private Sub Command3_Click()
Text1.Text = "R$" & format(cdbl(txtvalorprincipal) + cdbl(txtcorrecaomonetaria),"STANDARD")
Text2.Text = "R$" & format(cdbl(Text1) / 1.25971,"STANDARD")
Text3.Text = "R$" & format(cdbl(Text2) * 1.8029,"STANDARD")
Text5.Text = "R$" & format(cdbl(Text3) / cdbl(txtquantidadedeparcelas),"STANDARD")
Text6.Text = "R$" & format(cdbl(Text5) * (cdbl(txtquantidadedeparcelas) - cdbl (txtquantidadedeparcelasemaberto)),"STANDARD")
Text4.Text = "R$" & format(cdbl(Text3) - cdbl(Text6),"STANDARD")
End Sub


Vê ai se te ajuda! Vlw!
USUARIO.EXCLUIDOS 05/06/2007 14:17:01
#219848
LEOFRIB
Valeu agora deu certo
Mais queria mais uma coisinha
Tenho mais 2 campos repadaros de valores...
Como que faço para formatar eles...
Eles entao assim 100 gostaria que ficasse assim r$100,00

Obrigado
USUARIO.EXCLUIDOS 05/06/2007 14:25:40
#219850
cara Faz assim:


Text1.Text = Format(Text1.Text, "R$ #,###.00")
USUARIO.EXCLUIDOS 05/06/2007 14:31:02
#219851
Nao deu certo...
Quando tento inserir um numero 100 ele so inseri o primeiro numero ai depois quando ele joga para frente desse jeito aki:
00R$ 1,00...

GOSTARIA QUE FICASSE ASISM R$100,00
USUARIO.EXCLUIDOS 05/06/2007 14:36:09
#219853
Cara eu teste aki e deu certo é assim q eu sempre faço e nunca deu erro.
Página 1 de 2 [18 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar