关于日期的几个自定义函数

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)