閏年とは「４年に１度訪れる太陽暦において平年より暦日が１日多い年のこと」はご存じかと思いますが、
４年に一度必ず来るものではないことをご存じですか？
古代エジプトより１年を３６５日としていましたが、
閏年が存在しなかったために４.１２９年に１日の割合で暦と季節にズレが生じていました。
その後、古代ローマで採用されたユリウス暦で、４年に１度を閏年と定めることでズレを抑えたのですが、
約１２８年に１日の割合で同様に暦と季節がズレ、後になればなるほど大きく違ってしまいました。
そこでグレゴリウス１３世が暦の研究をし、以下の閏年条件を設けたグレゴリオ暦を制定しました。

・４で割り切れる
・１００で割り切れない
・１００で割れても４００で割り切れる

上記条件より１暦年は「年＋(年÷４)−(年÷１００)＋(年÷４００)」。
言い換えると、「３６５日＋(１／４)＋(１／１００)＋(１／４００)」で１年＝３６５．２４２５日ですが
昔と違って今では１年＝３６５．２４２２日ともう少し精密な周期がわかっており、
グレゴリオ暦と０．０００３日(２５．９２秒)ずつズレてしまいます。
そのため約３３００年に累積誤差で丸１日分ズレてしまうわけで、
この閏年とその条件が、これから先いつまで続くのかわかりませんがまだしばらくは使えることでしょう。
尚、他のページで行っている閏年判定は、下記のモジュール命令ではなくマクロにしています。
ＨＳＰ３においては、モジュールでもマクロでもどちらでも使用できますが、
ＨＳＰ２では文字列内で計算させることができませんので、マクロにしても使用できません。
手間ですが、一旦変数に代入した後、文字列へ渡すようにしてください。
	

leapcheck 対象年
	対象年		閏年かの判定をする年を指定する。 対象(=1)か否(=0)かはstatに返る。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

#module
#deffunc leapcheck int
	mref year, 0
	mref stt, 64
	stt =  (year \ 400 = 0) | (year \ 4 = 0 & (year \ 100 ! 0))
	return
#global

	sdim leap, 8, 2
	y = 1900, 2000, 2008, 2100, 2400
	leap = "平年", "閏年"
	repeat 5
		leapcheck y.cnt
		mes "西暦" + y.cnt + "年は" + leap.stat + "です。"
	loop
	stop

判定結果 = leapcheck(対象年)
	判定結果		対象(=1)か否(=0)かの判定結果受取先を指定する。
	対象年		閏年かの判定をする年を指定する。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

#module
#defcfunc leapcheck int year
	return (year \ 400 = 0) | (year \ 4 = 0 & year \ 100 ! 0)
#global

	y = 1900, 2000, 2008, 2100, 2400
	leap = "平年", "閏年"
	foreach y
		mes "西暦" + y.cnt + "年は" + leap(leapcheck(y.cnt)) + "です。"
	loop