取得月份中的天数函数

时　间:2008-07-03 15:50:26
作　者:HG   ID：204  城市：广州
摘　要:取得月份中的天数函数
正　文:

'-----------作者：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

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店