Excel vba 判斷年份是否爲閏年

閏年是爲瞭瀰補因人爲歷法規(guī)定造成的年度天數(shù)與地球?qū)嶋H公轉(zhuǎn)週期的時間差而設立的。

具體是怎麼計祘的，這裡我們就不在詳述。那些通過vba 如何判斷年份是否爲閏年

1、非整百年：能被4整除的爲閏年。（如2004年就是閏年,2001年不是閏年）
2、整百年：能被400整除的是閏年。(如2000年是閏年，1900年不是閏年)

Function runYear(txtYear As Integer)
    Dim yearNum As Integer      '定義變量
    yearNum = CInt(Val(txtYear))  '轉(zhuǎn)換數(shù)據(jù)類型
    
     '先判斷能否被100整除，能則處理一下。再判斷能否被4整除
    If IIf(yearNum Mod 100 = 0, yearNum / 100, yearNum) Mod 4 = 0 Then
        MsgBox yearNum & "是閏年"
    Else
        MsgBox yearNum & "是平年"
    End If
End Function