注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

自由呼吸的张镇麟的博客

喧嚣尘世中的淡定吟唱 命运一直藏匿在我们的思想里

 
 
 

日志

 
 
关于我

流逝的事情,错过的人,只是让我们更加清明的教材!人最重要的,是活在当下,放眼未来!

网易考拉推荐
GACHA精选

【引用】在Excel中判断某年是否为闰年  

2011-11-20 21:34:25|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

作者:admin 文章来源:本站原创 点击数: 52 更新时间:2009-2-24 15:53:44 在Excel中判断某年是否为闰年 - 上观雪儿 - 我的博客

   如果要在Excel中确定某年是否为闰年,可以用下面的方法,假如指定的年份在A1单元格,且为4位整数形式。

    使用公式:

     =IF(OR(MOD(A1,400)=0,AND(MOD(A1,4)=0,MOD(A1,100)<>0)),"闰年","非闰年")

    例如A1单元格为“1900”,公式返回“非闰年”。

    还可以使用下面的公式,对于闰年公式返回“1”,非闰年返回“0”。

    =(MOD(A1,4)=0)-(MOD(A1,100)=0)+(MOD(A1,400)=0)

    如果A1单元格中为日期格式的数据,如“2009-1-1”,只需将上述公式中的“A1”更改为“YEAR(A1)”即可。

    使用自定义函数:

    按Alt+F11,打开VBA编辑器,单击菜单“插入→模块”,在右侧的代码窗口中输入下面的VBA代码:

    Public Function IsLeapYear(ByVal Date1 As Date) As Boolean

        Y = Year(Date1)

        IsLeapYear = Month(DateSerial(Y, 2, 29)) = 2

    End Function

    或:

    Function IsyLeapYear(ByVal Date1 As Date) As Boolean

    Y = Year(Date1)

    IsyLeapYear = IIf(Y Mod 100 = 0, Y Mod 400 = 0, Y Mod 4 = 0)

End Function

    关闭VBA编辑器,在A1单元格中输入日期格式的数据,在另一单元格中输入:

    =IsLeapYear(A1)

    或:

    =IsyLeapYear(A1)

    对于闰年公式将返回“TRUE”,非闰年返回“FALSE”。

    上述公式或自定义函数对1900年以前年份的判断也是正确的。如果只需要判断1900年以后的年份,还可以用下面的几个公式:

    =IF(DAY(DATE(A1,3,0))=29,"闰年","非闰年")

    =IF(MONTH(DATE(A1,2,29))=2,"闰年","非闰年")

  评论这张
 
阅读(110)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018