[源码] 月初，月末，本月天数的函数

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

支持收藏了。