1. 返回日期当月天数条件: 已知日期
function MonthDays(dtaLocal)
DateDiff("d", dtaLocal, DateAdd("m", 1, dtaLocal))
End function
2. 返回日期当月天数条件: 已知年份, 月份
function MonthDays(intY, intM)
Day(DateSerial(intY, intM + 1, 0))
End function
如 2004 年 2 月, 则 intY= 2004, intM = 2 得到 29
注: 该方法来自 http://dev.csdn.net/article/54/54074.shtm 未验证 MonthDays(2004, 12)
