Office中国论坛/Access中国论坛

标题: [推荐HG代码] 取得月份中的天数的函数 [打印本页]

作者: zhuyiwen 时间: 2002-7-11 18:21
好，非常好！[em26]

作者: huanghai 时间: 2002-7-11 18:34
HG,我把你的代码抄了一遍，你就当我是小学生写作业吧：）

作者: huanghai 时间: 2002-7-11 18:35
标题: [推荐HG代码] 取得月份中的天数的函数
'------------使用示例--------------
'Print MonthDays(#1/1/2002#)
'31
'Print MonthDays(#2/1/2002#)
'28
'Print MonthDays(#3/1/2002#)
'31
'----------------------------------
Public Function MonthDays(strday As Date) As Integer '取得月份中的天数函数
Dim MonthfristDay, nextMonthfristDay As Date

MonthfristDay = DateAdd("d", -Day(strday) + 1, strday) '当月第一天
nextMonthfristDay = DateAdd("M", 1, DateAdd("d", -Day(strday) + 1, strday)) '下月第一天

MonthDays = DateDiff("d", MonthfristDay, nextMonthfristDay)
End Function

[此贴子已经被huanghai于2002-7-11 10:35:18编辑过]

作者: HG 时间: 2002-7-11 19:14
謝謝您的推廣，為大家工作帶來方便才是最重要的。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)