'Funcion que permite verificar la fecha que se ha ingresado
Public Function verificarfecha(dd, mm) As Boolean
    AA = Year(Date)
    sw = True
    dm = 31
    If mm = 4 Or mm = 6 Or mm = 9 Or mm = 11 Then dm = 30
    If mm = 2 Then dm = IIf(((AA Mod 4) = 0), 29, 28)
    If mm < 1 Or mm > 12 Then sw = False
    If dd < 1 Or dd > dm Then sw = False
    verificarfecha = sw
End Function

'Tambien se puede usar isdate(fecha)