2016 - 2024

感恩一路有你

excel怎么判断年份是否为闰年 excel怎么用IF公式判断闰年?

浏览量:3398 时间:2023-06-02 18:11:27 作者:采采

excel怎么用IF公式判断闰年?

公历闰年的简单点计算方法(条件以下条件之一的年份即为闰年。1:能被4质数而不能被100整除。(如2100年就不是闰年)。2:能被400自然数。(能被100整除只不过不能不能被400整除的,不是什么闰年)。所以我在表格键入:IF((MOD(A1,400)0)(MOD(A1,4)0)*MOD(A1,100),闰年,平年)

excel出生年月闰年的计算方法?

如果没有要在Excel中确定某年是否需要为闰年,可以不用下面的方法,若果更改的日期在A1单元格。可以使用公式:IF(求求求(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,闰年,非闰年)

在用自定义设置函数:

按AltF11,可以打开VBA编辑器,右击菜单“直接插入→模块”,在右侧的代码窗口中键入下面的VBA代码:

PublicFunctionIsLeapYear(ByValDate1AsDate)AsBooleanYYear(Date1)IsLeapYearMonth(DateSerial(Y,2,29))2

EndFunction或:FunctionIsyLeapYear(ByValDate1AsDate)AsBooleanYYear(Date1)IsyLeapYearIIf(YMod1000,YMod4000,YMod40)

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,闰年,非闰年)

A1 公式 IF VBA

版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。