1、普通情况求闰年只需除以4可除尽即可

　　2、如果是100的倍数但不是400的倍数,那就不是闰年了,即末两位都是零的整除400才行

　　像1700、1800、1900、2100都不是闰年,但是2000、2400是的.

　　3、2100年不是闰年,闰年不是象你们所说以加4为判断闰年标准的,所以闰年有些4年一次,但是有些是8年一次的.例如：1896年是闰年,但1900年不是,到1904年才是闰年.

　　这项规则是由16世纪格列高丽13世所订,为的是求历法准确.

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

　　IfnMod400=0Or(nMod4=0AndnMod1000)Then

　　MsgBoxs+"是闰年!"

　　EndIf

　　1900年和2100年不能被400整除,所以:不是