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

1. 返回日期当月天数条件: 已知日期
function MonthDays(dtaLocal)
    MonthDays = DateDiff("d", dtaLocal, DateAdd("m", 1, dtaLocal))
End function
注:该函数存在Bug, 请不要使用!

请使用下面的第2种方法获得天数.

2. 返回日期当月天数条件: 已知年份, 月份
function MonthDays(intY, intM)
    MonthDays = 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)