[推薦HG代碼] 取得月份中的天數(shù)的函數(shù)

huanghai

'------------使用示例--------------
'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    '取得月份中的天數(shù)函數(shù)
    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

[此貼子已經(jīng)被huanghai于2002-7-11 10:35:18編輯過]

zhuyiwen

好，非常好！[em26]

huanghai

HG,我把你的代碼抄了一遍，你就當我是小學(xué)生寫作業(yè)吧：）

HG

謝謝您的推廣，為大家工作帶來方便才是最重要的。