O cálculo dos anos bissextos serve principalmente para determinar o número de dias em fevereiro. Geralmente, fevereiro tem 29 dias nos anos bissextos e 28 dias nos anos normais. O algoritmo para calcular anos bissextos é muito simples, ou seja: é divisível por 400, ou é divisível por 4 mas não é divisível por 100.
O algoritmo é o seguinte:
function isLeapYear(pYear)
definir oreg = novo RegExp
oreg.Pattern="^d{4}$"
se não for oreg.Test(pYear) então
isLeapYear=falso
função de saída
terminar se
oAno=clng(pAno)
if ((oYear mod 4=0 e oYear mod 100<>0) ou oYear mod 400=0) então
isLeapYear=true
outro
isLeapYear=falso
terminar se
função final