![d3549bf4580b71ae056e0f78c017783f.png](https://i-blog.csdnimg.cn/blog_migrate/bb24dc43a40abd5fe79d7828b50a6e16.png)
VBA 技巧:计算一个月有多少天?
问题:
有时我们需要知道一个月有多少天,或者知道最后一天是31号还是30号
我们可以通过VBA代码来计算
Sub nb_days_month()
'将日期传入变量,月/日/年
date_test = CDate("6/2/2012")
'获取该月的天数
nb_days = Day(DateSerial(Year(date_test), Month(date_test) + 1, 1) - 1)
End Sub
代码解析:
- 将日期传入变量,月/日/年
- 获取日期中的年份和月份
- 获取下个月的第一天
- 使用下个月的第一天减 1 ,即可得到这个月的最后一天
- 最后一天,即是该月的天数
Sub nb_days_month()
'将日期传入变量,月/日/年
date_test = CDate("6/2/2012")
'获取日期中的年份和月份