'求某月天数
Function 本月天数(日期 As Date) As Byte
本月天数 = DateSerial(Year(日期), Month(日期) + 1, Day(日期)) - 日期
End Function

'求月末日期
Function 月末(日期 As Date) As Date
月末 = DateSerial(Year(日期), Month(日期) + 1, 0) 
End Function

'求月初日期
Function 月初(日期 As Date) As Date
月初 = 日期 - Day(日期) + 1
End Function

Function 月初(日期 As Date) As Date
　　月初 = CDate(FORMat(日期, "yyyy-m-1"))
End Function

'自定义结帐日的归属月份函数。即本月25日前算本月，26日后归入下个月。
   Function 结帐月(日期 As Date, 结帐日 As Byte)
     结帐月 = Format(DateSerial(Year(日期), Month(日期 - 结帐日) + 1, 1), "yy-mm")
   End Function