如何转化日期区间表达
时 间:2013-07-04 16:40:42
作 者:hjs ID:4770 城市:泸州
摘 要:区间划分日期,转化表达方式
正 文:
一、提出以下问题:
表有日期字段:如:2010-01-25,……2012-12-21,2012-12-21,2013-01-20……
需要区间划分:如:2011-11-21至2011-12-20表示为201112,2012-12-21至2013-01-20日期间表达为201301,2013-01-21至2013-02-20日期间表达为201302,……,2013-11-21至2013-12-20日期间表达为201312,2013-12-21至2014-01-20日期间表达为201401,以此类推,如何使用函数或者查询表示!
二、煮江品茶 老师给出了答案,但是运行效率较低。
Function GetMyMonth(ByVal date0 As Date, ByVal D As Date) As String
'功能:返回工厂日历计算的月度
'参数:D --- 计算日期
'示例:select *,GetMyMonth(#1900/12/20#,[日期]) from tbname
Dim d0 As Date, d1 As Date
Dim str As String
d0 = date0
d1 = DateAdd("m", 1, d0)
str = ""
If d0 <= D Then
Do While (D >= d0 And D < d1) = False
d0 = d1
d1 = DateAdd("m", 1, d0)
Loop
str = Format(d1, "yyyymm")
End If
GetMyMonth = str
End Function
三、自己研究个,虽然不简洁,但是效率高些。
Function GetMyMonth1(ByVal D As Date) As String
'功能:返回工厂日历计算的月度
'参数:D --- 计算日期
'示例:select *,GetMyMonth([日期]) from tbname
Dim d0 As String, d1 As String
Dim str As String
str = ""
d0 = Format(D, "mmdd")
d1 = Format(D, "yyyy")
Select Case d0
Case "0101" To "0120"
str = d1 & "01"
Case "0121" To "0220"
str = d1 & "02"
Case "0221" To "0320"
str = d1 & "03"
Case "0321" To "0420"
str = d1 & "04"
Case "0421" To "0520"
str = d1 & "05"
Case "0521" To "0620"
str = d1 & "06"
Case "0621" To "0720"
str = d1 & "07"
Case "0721" To "0820"
str = d1 & "08"
Case "0821" To "0920"
str = d1 & "09"
Case "0921" To "1020"
str = d1 & "10"
Case "1021" To "1120"
str = d1 & "11"
Case "1121" To "1220"
str = d1 & "12"
Case "1221" To "1231"
str = Format(D, "yyyy") + 1
str = str & "01"
Case Else
str = "-"
End Select
GetMyMonth1 = str
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.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)