|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Melhor forma de Formatar um campo de data
|
 |
|
|
|
Postada em 14/7/2007 por Marcelo13
marcelo-treze@uol.com.br
' depois de muitas dicas que estudei cheguei a esta conclusão
' o código a seguir além de formatar corretamente a data ele
' ainda permite que você digite apenas NUMEROS, e deixa a
' tecla Backspace funcionando normalmente
' Primeiro coloque em um módulo o seguinte código:
Function CampoDATA(obj As Object, Keyasc As Integer)
If Not ((Keyasc >= Asc("0") And Keyasc <= Asc("9")) Or Keyasc = 8) Then
Keyasc = 0
Exit Function
End If
If Keyasc <> 8 Then
If Len(obj.Text) = 2 Or Len(obj.Text) = 5 Then
obj.Text = obj.Text + "/"
obj.SelStart = Len(obj.Text)
End If
End If
End Function
' Para chamar afunção basta você colocar o seguinte código
' no evento KeyPress do seu campo como mostrado abaixo:
Private Sub txtData_KeyPress(KeyAscii As Integer)
'
CampoDATA txtadmissao, KeyAscii
'
End Sub
' espero que eu tenha ajudado os menos experientes como eu.
|
|
|
|
|
