时间 日期 自定义函数
时 间:2012-06-25 09:05:55
作 者:欢乐小爪 ID:20149 城市:杭州
摘 要:时间 日期 自定义函数
正 文:
计算天数及月初月末日期
Function 本月天数(日期As Date) As Byte
本月天数= DateSerial(Year(日期), Month(日期) + 1, Day(日期)) - 日期
End Function
Function 月末(日期As Date) As Date
月末 = DateSerial(Year(日期), Month(日期) + 1, 1) - 1
End Function
Function 月初(日期As Date) As Date
月初 = 日期 - Day(日期) + 1
End Function
今天是第几周
MsgBox "今天是第" & Format(Now(), "ww") & "周"
本月最后一日是周几
SELECT
Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1))AS 本月最后一日是周几,
下月最后一日是周几
SELECT
Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1))AS 下月最后一日是周几,
本月最后一个周5到月底的天数
SELECT
(Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1))+1)Mod 7 AS 本月最后一个周5到月底的天数;
下月最后一个周5到月底的天数
SELECT
(Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1))+1)Mod 7 AS 下月最后一个周5到月底的天数;
本月最后一个周5的日期
SELECT
DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1))-1-(Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1))+1)Mod 7 AS 本月最后一个周5的日期;
下月最后一个周5的日期
SELECT
DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1))-1-(Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1))+1)Mod 7 AS 下月最后一个周5的日期;
自定义两个日期中大的日期
Public Function Zudrq(rqa As Date, rqb As Date) As Date
Zudrq = rqa
If rqb > rqa Then
Zudrq = rqb
End If
End Function
算出每个月的天数
一法:
Dim a, b, c
a =Year(Now())
b =Month(Now())
c =Format((a & "/" & b + 1 & "/1"),"######") - Format((a & "/" & b &"/1"), "######")
二法:
DateDiff("d", Format(Date,"yyyy-mm-01"), Format(DateAdd("m", -1, Date),"yyyy-mm-01"))
DateDiff可以算出两个日期之间相差几天!
三法:
Day(DateAdd("d",-1, Format(Date, "yyyy-mm-01")))
day函数可以知道某个日期是这个月的第几天,我们把这个月的最后一天拿出来DAY一下!
应该还有更好的方法!
比如说可以定义一个数组,把每个月的日子放进去,或者说写一个函数算每一个月的天数
只要考虑一下闺年的问题就可以了!
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.20)
- 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)