Calcular los años bisiestos consiste principalmente en determinar el número de días en febrero. Generalmente, febrero tiene 29 días en años bisiestos y 28 días en años normales. El algoritmo para calcular los años bisiestos es muy sencillo, es decir: es divisible por 400, o es divisible por 4 pero no divisible por 100.
El algoritmo es el siguiente:
función isLeapYear(pYear)
establecer oreg = nueva expresión regular
oreg.Patrón="^d{4}$"
si no es oreg.Test(pYear) entonces
esAño bisiesto=falso
función de salida
terminar si
oAño=clng(pAño)
si ((oYear mod 4=0 y oYear mod 100<>0) u oYear mod 400=0) entonces
esAño bisiesto=verdadero
demás
esAño bisiesto=falso
terminar si
función final