[函数]vba计算月初，月末和本月天数_access模块-access类模块-access函数-access VBA

[函数]vba计算月初，月末和本月天数

时间：2013-08-16 16:34 来源：Office中国作者：huanghai 阅读：次

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

'? firstDayOfMonth("2003-2-4")
'  2003-2-1

'? lastDayOfMonth("2003-2-4")
'  2003-2-28

'? DaysInMonth("2003-2-4")
'  28

(责任编辑：admin)

顶一下

(1)

100%

踩一下

(0)

上一篇：access求出某个数值靠近0或者5
下一篇：Access vba 基础语法