excel闰年的计算方法excel求闰年公式

Question

如题所述

Answer 1

如果要在Excel中确定某年是否为闰年，可以用下面的方法，假如指定的日期在A1单元格。使用公式：=IF(OR(MOD(YEAR(A1)；
400)=0,AND(MOD(YEAR(A1)；
4)=0,MOD(YEAR(A1),100)<0)),"闰年","非闰年")
例如A1单元格为“1900-1-1”，公式返回“非闰年”。
还可以使用下面的公式，对于闰年公式返回“1”，非闰年返回“0”。
=(MOD(YEAR(A1)；
4)=0)-(MOD(YEAR(A1),100)=0)+(MOD(YEAR(A1)；
400)=0)
下面的公式比较简洁，除1900年外都能正确判断：
=IF(DAY(DATE(YEAR(A1)；
2；
29))=29,"闰年","非闰年")
使用自定义函数：
按Alt+F11，打开VBA编辑器，单击菜单“插入→模块”，在右侧的代码窗口中输入下面的VBA代码：
PublicFunctionIsLeapYear(ByValDate1AsDate)AsBoolean
Y=Year(Date1)
IsLeapYear=Month(DateSerial(Y；
2；
29))=2
EndFunction或：FunctionIsyLeapYear(ByValDate1AsDate)AsBoolean
Y=Year(Date1)
IsyLeapYear=IIf(YMod100=0,YMod400=0,YMod4=0)
EndFunction
关闭VBA编辑器，在A1单元格中输入日期格式的数据，在另一单元格中输入：
=IsLeapYear(A1)或：=IsyLeapYear(A1)
对于闰年公式将返回“TRUE”，非闰年返回“FALSE”。
上述公式或自定义函数对1900年以前年份的判断也是正确的。如果只需要判断1900年以后的年份，还可以用下面的几个公式：
=IF(DAY(DATE(A1；
3,0))=29,"闰年","非闰年")
=IF(MONTH(DATE(A1；
2；
29))=2,"闰年","非闰年")