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)
关于日期的几个自定义函数
最新推荐文章于 2019-12-25 16:32:00 发布