vba 判断闰年函数
2019-04-16 10:28
295 查看
引言
平时工作中,我们经常会遇到闰年的判断,不同的年份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.csdn.net/Soul_taker/article/details/89178432),我们就可以完成闰年的判断。
使用时第一个参数为年,第二个参数为月就可以返回相应月份的日数啦。效果如下:
相关文章推荐
- 实现一个函数判断year是不是闰年。
- C 实现一个函数判断year是不是闰年
- 用函数解决乘法表,交换,判断闰年,判断素数等简单问题
- 实现一个函数判断year是不是闰年
- 写一个函数,判断year是不是闰年。
- 两个VB6判断闰年的函数
- 通过函数打印乘法表/交换两个数/判断闰年/创建数组/判断素数
- 函数实现乘法表,两数交换,判断闰年,初始、逆置、清空数组
- 函数判断闰年
- 函数判断闰年
- 编写函数判断一个年是否是闰年,是闰年返回ture,不是闰年返回false。
- 函数调用判断一个年份是否为闰年及程序的继续与结束
- 编写函数判断是否闰年
- VBA------ 判断某个文件是否存在函数
- 设计函数实现素数判断,闰年判断,交换变量,打印自定义乘法表
- 用函数判断year是不是闰年
- 【叶子函数分享二十八】根据年度判断是否是闰年
- vba中的函数,判断日期格式数字和求个数
- 函数(输出乘法口诀、交换两个数、判断闰年、创建数组、判断素数)
- n*n乘法口诀表,两个数交换(函数),判断闰年(函数),数组操作,判断素数(函数)