我们在以前的文章介绍了使用excel内置的函数编写公式来判断年份属于闰年还是平年，本文再介绍使用excel的VBA代码来判断闰年的方法。
在excel中，按下ALT+F11键，打开VBE编辑器，插入――模块，复制下面的VBA代码，然后单击“运行”命令运行即可实现VBA判断闰年。
Sub判断闰年()
DimTmp
OnErrorGoToskip
Tmp=CDate(InputBox("请输入一个年份","年份",Year(Now))&"-2-29")
MsgBox"是闰年!"
ExitSub
skip:
MsgBox"不是闰年!"
EndSub
提供使用excel函数判断闰年的参考链接：http://www.ittribalwo.com/show.asp?id=1177
