27 de octubre de 2003

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

1 comentario :