Visual Basic - Validar fecha

Life is soft - evento anual de software empresarial
   
Vista:

Validar fecha

Publicado por Agustin (9 intervenciones) el 06/08/2015 21:24:07
Hola, quiero validar la fecha pero al momento de ingresar una fecha con día anterior a 12 y un mes invalido (13 en adelante) me invierte los valores en el código y me deja un formato 12/13/YYYY, quiero que me diga que la fecha es incorrecta. Este es mi codigo ahora

1
2
3
4
5
6
7
8
9
10
11
12
13
If KeyAscii = 13 Then
       SendKeys "{tab}"
       KeyAscii = 0
       txtfecalta.Text = Format(txtfecalta, "##/##/####")
        If txtfecnac <> "" Then
            If IsDate(txtfecalta) = False Then
                MsgBox "Lo siento fecha incorrecta, ingrese solo numeros.", vbInformation, "Atención!"
                txtfecalta.Text = ""
            End If
            Else
            MsgBox "Debe ingresar fecha de alta"
        End If
    End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Validar fecha

Publicado por Rafael (65 intervenciones) el 07/08/2015 09:06:23
¿Has probado con?
1
txtfecalta.Text = Format(txtfecalta, "dd/mm/yyyy")

Nos cuentas??


Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Validar fecha

Publicado por Agustin (9 intervenciones) el 07/08/2015 19:01:49
Hola, gracias por la respuesta. Sí, he probado y sigue sin validar, por ej, ingreso 12131992, al darle enter pasa a 12/13/1992 en en textbox y se guarda como día 13 mes 12
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar