Le calcul des années bissextiles consiste principalement à déterminer le nombre de jours en février. Généralement, février compte 29 jours dans les années bissextiles et 28 jours dans les années ordinaires. L'algorithme de calcul des années bissextiles est très simple, c'est-à-dire : il est divisible par 400, ou il est divisible par 4 mais pas divisible par 100.
L'algorithme est le suivant :
fonction isLeapYear(pYear)
définir oreg=nouvelle RegExp
oreg.Pattern="^d{4}$"
sinon oreg.Test(pYear) alors
isLeapYear=false
fonction de sortie
finir si
oAnnée=clng(pAnnée)
si ((oAnnée mod 4=0 et oAnnée mod 100<>0) ou oAnnée mod 400=0) alors
isLeapYear=true
autre
isLeapYear=false
finir si
fonction de fin