MASCARA PARA MOEDAS
Alguém sabe como incluir máscara para valores monetários, ou seja, a medida em que o usuário for digitando os números a pontuação vai assumindo o local correto (tal qual acontece nos caixas eletrônicos)?
Private Sub Text1_Change()
If Text1.Tag = [Ô][Ô] Then
Text1.Tag = [Ô]1[Ô]
Wvalor = Replace(Text1.Text, [Ô].[Ô], [Ô][Ô])
Wvalor = Replace(Wvalor, [Ô],[Ô], [Ô][Ô])
Text1.Text = Format(Wvalor, [Ô]###,###,###,###.##[Ô])
Text1.SelStart = Len(Text1.Text)
Text1.Tag = [Ô][Ô]
End If
End Sub
If Text1.Tag = [Ô][Ô] Then
Text1.Tag = [Ô]1[Ô]
Wvalor = Replace(Text1.Text, [Ô].[Ô], [Ô][Ô])
Wvalor = Replace(Wvalor, [Ô],[Ô], [Ô][Ô])
Text1.Text = Format(Wvalor, [Ô]###,###,###,###.##[Ô])
Text1.SelStart = Len(Text1.Text)
Text1.Tag = [Ô][Ô]
End If
End Sub
Referente aos links que postei acima.
No primeiro link, se aparecer algum erro, declare a variável assim:
O projeto do segundo link, segue anexo
No primeiro link, se aparecer algum erro, declare a variável assim:
Option Explicit
Dim Tecla As Byte
Dim JaPassou As BooleanO projeto do segundo link, segue anexo
EDINALDOLA bom dia, apenas acrescentando mais uma idéia, apesar de eu não gostar do maskedit, você pode colocar e na propriedade mask dele colocar 999,999,999,99 que ele assumirá o formato de moeda, e o usuário nem precisa digitar a pontuação
Abraço
Abraço
Tópico encerrado , respostas não são mais permitidas