Die Berechnung von Schaltjahren dient hauptsächlich der Bestimmung der Anzahl der Tage im Februar. Im Allgemeinen hat der Februar 29 Tage in Schaltjahren und 28 Tage in gewöhnlichen Jahren. Der Algorithmus zur Berechnung von Schaltjahren ist sehr einfach, das heißt: Es ist durch 400 teilbar, oder es ist durch 4 teilbar, aber nicht durch 100 teilbar.
Der Algorithmus lautet wie folgt:
function isLeapYear(pYear)
set oreg=new RegExp
oreg.Pattern="^d{4}$"
wenn nicht oreg.Test(pYear) dann
isLeapYear=false
Exit-Funktion
Ende wenn
oYear=clng(pYear)
if ((oYear mod 4=0 und oYear mod 100<>0) oder oYear mod 400=0) then
isLeapYear=true
anders
isLeapYear=false
Ende wenn
Endfunktion