calendar获取月份少一个月_VBA 技巧：计算一个月有多少天？

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")
    
    '获取日期中的年份和月份