Excel vba 判斷年份是否爲閏年

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

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