office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Excel vba 判断年份是否为闰年

2020-04-20 08:00:00
tmtony8
原创
166

闰年是为了弥补因人为历法规定造成的年度天数与地球实际公转周期的时间差而设立的。

具体是怎么计算的,这里我们就不在详述。那些通过vba 如何判断年份是否为闰年

1、非整百年:能被4整除的为闰年。(如2004年就是闰年,2001年不是闰年)
2、整百年:能被400整除的是闰年。(如2000年是闰年,1900年不是闰年)



Function runYear(txtYear As Integer)
    Dim yearNum As Integer      '定义变量
    yearNum = CInt(Val(txtYear))  '转换数据类型
    
     '先判断能否被100整除,能则处理一下。再判断能否被4整除
    If IIf(yearNum Mod 100 = 0, yearNum / 100, yearNum) Mod 4 = 0 Then
        MsgBox yearNum & "是闰年"
    Else
        MsgBox yearNum & "是平年"
    End If
End Function



    分享