2 de marzo de 2002

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

No hay comentarios. :

Publicar un comentario