access常用的日期函数

来源:互联网 时间:2016-01-03

'求某月天数

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

 

相关阅读:
Top