[源碼] 月初，月末，本月天數(shù)的函數(shù)

huanghai

'? firstDayOfMonth("2003-2-4")
'  2003-2-1

'? lastDayOfMonth("2003-2-4")
'  2003-2-28

'? DaysInMonth("2003-2-4")
'  28

Function firstDayOfMonth(myDate As Date) As Date
    firstDayOfMonth = CDate(Format(myDate, "yyyy-m-1"))
End Function

Function lastDayOfMonth(myDate As Date) As Date
    lastDayOfMonth = DateAdd("d", -1, DateAdd("M", 1, firstDayOfMonth(myDate)))
End Function

Function DaysInMonth(myDate As Date) As Integer
    DaysInMonth = DateDiff("d", firstDayOfMonth(myDate), lastDayOfMonth(myDate)) + 1
End Function

chenghai

謝謝黃大師為我們送來簡潔實用的源代碼！

keecome

終于找到了,

建議版主把這種實用的貼子放到精華貼里,這樣更方便

pdrich

支持啊

086-china

支持啊

chaojianan

支持收藏了。