【Access小品】周而复始--获取每月各周日期范围示例
时 间:2015-04-27 12:21:41
作 者:煮江品茶 ID:10802 城市:武汉
摘 要:【Access小品】周而复始 -- 获取每月各周日期范围示例
正 文:
最近有版友问到统计每月中各周的数据问题,这个问题的解决要点是如何获得每月中各周的日期范围。而获得各周的日期范围的难点,又在于第一周和最后一周可能不是完整的七天。时间的流逝是周而复始的,但由于以月度和周两个时间度量来计算,就可能造成某一种时间度量(周)在另一种度量(月)的约束下不一定周而复始。注意这里说的不能周而复始的前提是因为另一种度量的约束,也就是说没有这种约束,依然是周而复始的。
前面我们讨论周在月中不完全能周而复始的原因并不重要,就本问题而言最重要的是观察到第一周和最后一周可能不是完整的七天。有了这个对问题的观察,我们也就有了解决问题的思考方向,由此入手也就不难解决问题。在本示例中主要采用一个自定义的函数来处理问题,这个自定义函数大体可以按如下代码编写:
Public Function WeekDateArr(ByVal y As Integer, ByVal m As Integer) As Variant
'功能:返回当前月度中各周的日期范围
'参数:y -- 年度, m -- 月度
Dim monthday0 As Date, monthday1 As Date
Dim weekday0 As Date, weekday1 As Date
Dim Arr() As String
Dim i As Integer
monthday0 = DateSerial(y, m, 1)
monthday1 = DateSerial(y, m + 1, 0)
'第一周日期范围
weekday0 = monthday0
weekday1 = DateAdd("d", 7 - Weekday(weekday0, vbMonday), weekday0)
ReDim Preserve Arr(1, 0)
Arr(0, 0) = weekday0
Arr(1, 0) = weekday1
i = 0
Do While weekday1 < monthday1
weekday0 = DateAdd("d", 1, weekday1)
weekday1 = DateAdd("d", 6, weekday0)
If weekday1 > monthday1 Then weekday1 = monthday1
i = i + 1
ReDim Preserve Arr(1, i)
Arr(0, i) = weekday0
Arr(1, i) = weekday1
Loop
WeekDateArr = Arr
End Function
示 例:
视 图:
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)