Saber si un año es bisiesto

Dos rutinas que nos permitirán saber si un año es bisisesto

Para saber si un año es bisiesto, se deben cumplir tres reglas:

• Un año es bisiesto si éste es divisible por 4.
• Salvo que ese año sea divisible por 100.
• Pero si el año es divisible por 400, entonces si es bisiesto.

Con estas tres reglas escribimos la primera función:

FUNCTION EsBisiesto(tnAnio)
    RETURN (tnAnio%4 = 0 AND tnAnio%100 # 0) OR tnAnio%400 = 0
ENDFUNC

La segunda función simplemente pregunta por el día 29 de Febrero del año que pasamos como parámetro. VFP verifica si esta fecha es válida y nos retorna una fecha vacia si no es válida:

FUNCTION EsBisiesto(tnAnio)
    RETURN NOT EMPTY(DATE(tnAnio, 02, 29))
ENDFUNC

Luis María Guayán