在公历（格里历）纪年中,有闰日的年份叫闰年,一般年份365天,闰年为366天.由于地球绕太阳运行周期为365天5小时48分46秒（合365.24219天）即一回归年,公历把一年定为365天.所余下的时间约为四年累计一天,加在二月里,所以平常年份每年365天,二月为28天,闰年为366天,二月为29天.因此,每400年中有97个闰年,闰年在2月末增加一天,闰年366天.闰年的计算方法：公元纪年的年数可以被四整除,即为闰年；被100整除而不能被400整除为平年；被100整除也可被400整除的为闰年.如2000年是闰年,而1900年不是.
下面是一个计算公历闰年的例子：
s = InputBox("请输入年份：")
n = Val(s)
If n Mod 400 = 0 Or (n Mod 4 = 0 And n Mod 100 0) Then
MsgBox s + "是闰年!"
End If
1900年和2100年不能被400整除,所以:不是