|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Formatação de datas numa TextBox simples
|
 |
|
|
|
Postada em 17/2/2004 por geronimo
'Formatação de datas numa TextBox simples
'Ao digitar uma data num TextBox esta macro insere automaticamente os separadores, a unica regra é inserir o dia e o mês com 2 dígitos e o ano com 2 ou 4 dígitos.
'Ao digitar o 2º digito do dia ou do mês a barra é adicionada automaticamente.
'Sem validação de digitação
Private Sub Text1_Change()
'formatar a entrada da data
'If Len(Text1) = 2 Or Len(Text1) = 5 Then
' Text1.Text = Text1.Text & "/"
' SendKeys "{End}", True
'End If
End Sub
'Esta é mais completa, além de inserir os já referidos separadores,
'permite apagar sem que seja preenchido automaticamente as '/'
'e faz também uma verificação dos caracteres permitidos numa data.
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 48 To 57 ' BackSpace e numericos
If Len(Text1) = 2 Or Len(Text1) = 5 Then
Text1.Text = Text1.Text & "/"
SendKeys "{End}", True
End If
Case Else ' o resto é travado
KeyAscii = 0
End Select
End Sub
|
|
|
|
|
