如何用VBA求给定日期当月有多少天？

作者：绿色风分类：时间：2022-08-17 浏览：111

楼主
wjc2090742

Q：如何用VBA求给定日期当月有多少天？
A：VBA中日期相关基础应用，大致有2种方法。第1种：利用DateSerial、DateValue或调用工作表函数EOMONTH，得到给定日期当月最后一天，这里演示下DateValue的用法。

Sub text1()
Dim mydate, mymonth
mydate = #5/26/2011#
MsgBox Day(DateValue(Year(mydate) & -Month(mydate) - 1 & -1) - 1)
End Sub

第2种：循环累加给定日期，当月份发生变化时得到当月最后一天的日期。最后用Day得到其日期。

Sub text2()
Dim mydate, mymonth
mydate = #5/26/2011#
mymonth = Month(mydate)
Do Until Month(mydate + 1) > mymonth
mydate = mydate + 1
Loop
MsgBox Day(mydate)
End Sub

该帖已经同步到 wjc2090742的微博

如何求给定日期当月有多少天？.rar

2楼
我一定会回来的

好方法，学习了，谢谢。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表