office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

Excel vba 判斷年份是否爲閏年

2020-04-20 08:00:00
tmtony8
原創
6414

閏年是爲瞭瀰補因人爲歷法規定造成的年度天數與地球實際公轉週期的時間差而設立的。

具體是怎麽計祘的,這裡我們就不在詳述。那些通過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



    分享