VBA Leap Year Function
发布时间
阅读量：
阅读量
引言
在日常的实践操作中，闰年的识别是一个常见问题，由于不同年份的二月天数存在差异，若逐个年份进行判定，在处理大规模数据时将面临效率不足的问题。借助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
全部评论 (0)
还没有任何评论哟~