8 de marzo de 2000

Saber si un año es bisiesto

************************************************************
*
* Clase: ESBISIESTO
*
* Indica si el año es bisiesto
*
* Parametros:
*
*  tnano - año a investigar
*
* Ejemplos:
*
* GoCsApp.esbisiaesto(2000)
*
* Retorno
*
* .T.  el año es bisiesto
* .F.  el año NO es bisiesto
*
* Nota
*
* Creación           : 23/02/2000 DCB
* Ultima Modificacion: 23/02/2000 DCB
*
************************************************************
PARAMETERS tnano
RETURN (MOD(tnano,4)=0 AND MOD(tnano,100)<>0) OR MOD(tnano,400)=0
Pablo Roca

No hay comentarios. :

Publicar un comentario