Excel vba 判斷年份是否為閏年

2020-04-20 08:00:00

tmtony8

原創(chuàng)

7627

閏年是為了彌補(bǔ)因人為歷法規(guī)定造成的年度天數(shù)與地球?qū)嶋H公轉(zhuǎn)周期的時(shí)間差而設(shè)立的。

具體是怎么計(jì)算的，這里我們就不在詳述。那些通過(guò)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ù)類(lèi)型
    
     '先判斷能否被100整除，能則處理一下。再判斷能否被4整除
    If IIf(yearNum Mod 100 = 0, yearNum / 100, yearNum) Mod 4 = 0 Then
        MsgBox yearNum & "是閏年"
    Else
        MsgBox yearNum & "是平年"
    End If
End Function