'求某月天数 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