判断系统时间中当前月的最大天数

[gangleader]

如题

[rexyudl]

Dim nLastDay As Integer
'判断当月的最大天数
nLastDay = DateDiff("d", DateSerial(Year(Date), Month(Date), 1), DateAdd("m", 1, DateSerial(Year(Date), Month(Date), 1)))