|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Testar se a data foi digitada corretamente em um TextBox
|
 |
|
|
|
Postada em 10/2/2003 por Rogério
rogerio@globo.com
'Verifica se a data inserida dentro de um textbox está correta ou não, se estiver incorreta retorna uma mensagem de erro de data e move o foco para o textbox novamente
'Coloque o código abaixo em um Form com o TextBox
Private Sub Text1_LostFocus()
If IsDate(Text1.Text) = False And Text1.Text <> Empty Then
MsgBox ("A Data está Incorreta")
Text1.SetFocus
End If
End Sub
'OBS: Pode ser usado também em um MaskEdit
|
|
|
|
|
