'求某月天数

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

编辑：北京信诚www.xcitbm.com>IT保姆www.xcitbm.com>IT外包部 http://www.xcitbm.comwww.xcit.com.cn

::发表评论::

姓名：  *  Email： *  评分：10  20  30  40  50  60  70  80  90  100