月初,月末,本月天数的函数
时 间:2009-05-06 08:43:47
作 者:Grant ID:217 城市:顺德
摘 要:月初,月末,本月天数的函数
正 文:
月初,月末,本月天数的函数
accessQQ.com 2003-12-29
'? firstDayOfMonth("2003-2-4")
' 2003-2-1
'? lastDayOfMonth("2003-2-4")
' 2003-2-28
'? DaysInMonth("2003-2-4")
' 28
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
accessQQ.com 2003-12-29
'? firstDayOfMonth("2003-2-4")
' 2003-2-1
'? lastDayOfMonth("2003-2-4")
' 2003-2-28
'? DaysInMonth("2003-2-4")
' 28
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
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)