Validar fecha

Cordial Saludo
Quisiera preguntarle si este el código para validar que sea texto y no numérico COMO HAGO PARA VALIDAR FECHAS.
Gracias por su amable respuesta y colaboración.
Private Sub TextBox2_Change()
'no numérico
If IsNumeric(TextBox2.Text) And _
TextBox2.Text <> "" Then
MsgBox "Este Campo es solo texto"
TextBox2.Text = ""
TextBox2.SetFocus
End If
End Sub
1

1 Respuesta

1.940.815 pts. El tiempo es escaso... consulta con un ejemplo o...
Introducí estos ajustes:
Private Sub TextBox2_AfterUpdate()
If Not IsDate(TextBox2.Text) Then
MsgBox "Este Campo debe ser fecha"
TextBox2.Text = ""
TextBox2.SetFocus
End If

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas