if (a mod 4=0 and a mod 1000) or (a mod 400=0) then
msgbox "闰年"
else
msgbox "平年"
endif
a 是一个年数，如：2009
149
2024-01-29 18:58
admin