Validar Fecha Textbox

[la_matacury]

Holaa!! Molesto de nuevo, sucede que tengo dos textbox en las cuales van fechas, que se introducen manualmente, sin embargo quiero saber como validarla por ejemplo con el 30 de febrero..... lei en un foro un codigo algo asi....

'validador de fecha text1
Dim fecha As Date
On Error GoTo errorfecha
fecha = TextBox1.Text
errorfecha:
MsgBox("La Fecha que ha ingresado no es válida, intente nuevamente")

pero me funciona pa un solo textbox. traté de modificarlo para que tomara los dos textbox y solo toma el primero.

Help!!

[Peterpay]

Es aplicacion windows o web?

si es windows utiliza un ErrorProvider y apunta todos los textbox del estilo al mismo evento y usa el object sender para poder hacer la validacion generica.

si es web utiliza 2 o mas validadores tantos controles del estilo existan.

[marabra]

tambien podrias crear una funcion y pasarle los texbox que quieras

Private Sub validar_fecha(ByVal text As TextBox)
Dim fecha As Date
On Error GoTo errorfecha
fecha = TextBox1.Text
errorfecha:
MsgBox("La Fecha que ha ingresado no es válida, intente nuevamente")
End Sub

luego solo lo llamarias en el evento lostfocus o el validating de cada textbox

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
validar_fecha(Me.TextBox1)
End Sub

Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
validar_fecha(Me.TextBox1)
End Sub

[la_matacury]

gracias por la ayuda, pruebo y les cuento......

saludos

[la_matacury]

Hola a todos!! muchas gracias marabra por contestar, el codigo funciona bien, muy agradecida..... sin embargo llegue a la conclusion de que el DateTimePicker es mas seguro y evitas errores al digitar (probe con ambas formas).... en fin gracias, gracias y mil gracias!!! un 7