閏年の計算は主に 2 月の日数を決定するために行われます。通常、2 月は閏年では 29 日、平年では 28 日になります。うるう年を計算するアルゴリズムは非常に単純です。つまり、400 で割り切れるか、4 で割り切れるが 100 で割り切れないということです。
アルゴリズムは次のとおりです:
function isLeap Year(p Year)
set oreg=新しい正規表現
oreg.Pattern="^d{4}$"
oreg.Test(p Year) ではない場合
isLeapyear=false
終了関数
終了する場合
o年=clng(p年)
if ((o年 mod 4=0 および o年 mod 100<>0) または o年 mod 400=0) then
isLeapyear=true
それ以外
isLeapyear=false
終了する場合
終了関数