excel vba利用DateSerial来获取某个月的第一天和最后一天

Sub MyDate()
Dim defaultDate As Date, FirstDate As Date, LastDate As Date

'DateSerial的第三个参数设置成1，day一定是1，第二个参数Month(Date) - 1，则表示上一个月

defaultDate = DateSerial(Year(Date), Month(Date)-1, 1)
FirstDate = InputBox("", "请输入要开始的时间", defaultDate)

'DateSerial的第三个参数设置成0，那么会获month的上一个月的最后一天

defaultDate = DateSerial(Year(Date), Month(Date) , 0)
LastDate = InputBox("", "请输入结束的时间", defaultDate)
End Sub