如何判断闰年

 剪辑自：http://www.china-askpro.com/msg18/qa92.shtml

在公历（格里历）纪年中，有闰日的年份叫闰年，一般年份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