Validar una fecha

¿El 29 de Febrero de 2004 es una fecha válida? ¿Existe el 31 de Abril de 2010? Con esta función podemos saber si una fecha es válida o no.

*----------------------------------------------
* FUNCTION EsFechaValida(tnAnio, tnMes, tnDia)
*----------------------------------------------
* Retorna: .T. si la fecha es válida
* Parametros: Año, Mes y Día (todos numéricos)
* Uso: EsFechaValida(2000,2,30) && .F.
*----------------------------------------------
FUNCTION EsFechaValida(tnAnio, tnMes, tnDia)
  RETURN ;
    VARTYPE(tnAnio) = "N" AND ;
    VARTYPE(tnMes) = "N" AND ;
    VARTYPE(tnDia) = "N" AND ;
    BETWEEN(tnAnio, 100, 9999) AND ;
    BETWEEN(tnMes, 1, 12) AND ;
    BETWEEN(tnDia, 1, 31) AND ;
    NOT EMPTY(DATE(tnAnio, tnMes, tnDia))
ENDFUNC
*----------------------------------------------

Luis María Guayán