楼上的< MEIFEGHDPIG >，你算错了吧？
1900平年，2000闰年，自己检验一下
--------------
Sub at()
Dim y, s
y = Year(Now())
s = (y Mod 4 = 0 And y Mod 100 <> 0) Or y Mod 400 = 0 <> 0
MsgBox IIf(s, "闰年", "平年")
End Sub
----------------
A1写入日期（如，1900-1-1，或 2000-1-1），B1写入公式：
=IF(OR(AND(MOD(YEAR(A1),4)=0,MOD(YEAR(A1),100)<>0),MOD(YEAR(A1),400)=0),"闰年","平年")
