在公历（格里历）纪年中，有闰日的年份叫闰年，一般年份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
参考资料：http://www.china-askpro.com/msg18/qa92.shtml
年份除以4。能被整除没有余数的是闰年。
另外，公元年被4整除，且不被100整除，或被400整除者即为闰年
年数能被四整除的即为闰年，否则非闰年。如2000，2004均为闰年