VMS
|
UBERLÂNDIA
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 16/11/2009 14:57 hs
Boa tarde! Preciso formatar uma textbox para que os valores que aparecerem nela sejam no seguinte formato: R$ 1.000.000,00. A quem responder, obrigado. |
|
|
|
|
|
|
|
Postada em 16/11/2009 15:32 hs
text1.text = format(text1.text, "#.##0,00")
text1.text = "R$ " & text1.text
verifica o comando de formatacao as vezes eu me confundo se vem primeiro o # ou o 0
Ass. Paulo Silva
|
|
|
|
Treze
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/11/2009 15:43 hs
Ou simplismente Text1.Text = Format(Text1.Text, "Currency") |
|
|
|
wadaw
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/04/2010 19:53 hs
esfsefsefsef  dwadwadawdwadwad
|
|
|
|
Bhyllo
|
PARAISÓPOLIS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/04/2010 21:12 hs
Boa noite! Aqui vai uma dica legal que só aceita números na TextBox onde o (.) e (,) são colocados automáticos conforme vai digitando o valor! Private Sub TxtValorP_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{Tab}"
KeyAscii = 0
End If
If KeyAscii = 8 Then
If Len(TxtValorP) > 0 Then
TxtValorP = Left(TxtValorP, Len(TxtValorP) - 1)
End If
If TxtValorP = "" Then
Exit Sub
End If
TxtValorP = Replace(TxtValorP, ",", "")
TxtValorP = Replace(TxtValorP, ".", "")
TxtValorP = Format(TxtValorP / 100, "###,##0.00")
ElseIf KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then
If KeyAscii <> 8 And KeyAscii <> Asc(",") And KeyAscii <> Asc(".") Then
TxtValorP.SelStart = Len(TxtValorP)
TxtValorP = TxtValorP & Chr(KeyAscii)
End If
If TxtValorP = "" Then
Exit Sub
End If
TxtValorP = Replace(TxtValorP, ",", "")
TxtValorP = Replace(TxtValorP, ".", "")
TxtValorP = Format(TxtValorP / 100, "###,##0.00")
End If
KeyAscii = 0
End Sub
Espero que tenha ajudado! |
|
|
|
Perci!
|
MATAO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/04/2010 07:47 hs
Também tenho uma dica . Utilizo esta função que eu criei. Coloque-a em um módulo e assim pode ser utilizadas em todos os formulários do projeto. ' função para formatar os campos de valores monetários ' basta digitar os números que (.) e (,) são colocados automaticamente. ' para chamar a função, no evento KeyPress da TextBox escreva a linha: ' CampoValor TextBox1, KeyAscii, 10 ' --> onde TextBox1 é o nome da TextBox e 10 é o tamanho em caracteres da TextBox, incluindo (.) e (,) Function CampoValor(obj As Object, KeyAscii As Integer, tamanho As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Or KeyAscii = 8) Then
KeyAscii = 0
Exit Function
End If
If KeyAscii <> 8 Then
If Len(obj.Text) = tamanho Then
KeyAscii = 0
Exit Function
End If
If Len(obj.Text) > 1 Then
obj.Text = Replace(obj.Text, ",", "")
obj.Text = Left(obj.Text, Len(obj.Text) - 1) & "," & Right(obj.Text, 1)
obj.Text = Format(obj.Text, "###,##0.0")
obj.SelStart = Len(obj.Text)
End If
End If
End Function
Espero, também ter contribuído. Até mais. |
|
|
|
|
