Validacion de fecha

[t0n1]

Iniciado por agus0

ah! ahora entendí Suponiendo que el formato de Fecha que vos querés es

Día/Mes/año Completo (por Ejemplo hoy es "9-12-2010"

Código:

Private Sub CmdComprobar_Click()
Dim aFecha() As String
    aFecha = Split(TxtFecha.Text, "-")
    If UBound(aFecha) <> 2 Then
        MsgBox "Mal el Formato de la Fecha"
    ElseIf aFecha(0) > 31 Then
        MsgBox "Dia de la Fecha Mal"
    ElseIf aFecha(1) > 12 Then
        MsgBox "Mes de la Fecha Mal"
    ElseIf aFecha(2) < Format(Date, "yyyy") Then
        MsgBox "Año Ingresado es Menor al Año Actual"
    Else
        MsgBox "Fecha Correcta"
    End If
End Sub

Espero Que te sirva y que lo ayas entendido, cualquier cosa pregunta :) Suerte!!

Muy bueno, gracias!.

Otra cosita, ¿se puede validar dentro de un textbox, o sea -que cuando el usuario cargue los datos aparezca un message o en un label al costado, validando al pasar al otro textbox y no, cuando cliqueé el botón para guardar los datos- que el formato de la fecha sea dd/mm/yyy?.