vba 判断闰年函数

引言

平时工作中，我们经常会遇到闰年的判断，不同的年份2月的天数有所变化，如果一年一年判断的话，在长序列数据面前就会显得捉襟见肘。有了vba函数的帮助，我们只要编写一个判断函数，就可以进行闰年的判断。

闰年函数

话不多说，直接上代码。

Function runnian(year, mounth) As Variant

    If mounth = 2 Then
        If (year Mod 4 = 0) And (year Mod 100 <> 0) Then	‘先进入2月的判断，如果年份可以被4整除且不能被100整除则为闰年，返回29天
            runnian = 29
        Else
            runnian = 28
        End If
    ElseIf mounth = 1 Or mounth = 3 Or mounth = 5 Or mounth = 7 Or mounth = 8 Or mounth = 10 Or mounth = 12 Then
        runnian = 31
    Else
        runnian = 30
    End If
    
End Function

就这么10多行的代码，粘贴到excel vba程序框中（关于excel vba的基础描述请看https://blog.youkuaiyun.com/Soul_taker/article/details/89178432），我们就可以完成闰年的判断。
使用时第一个参数为年，第二个参数为月就可以返回相应月份的日数啦。效果如下：