【access自定义函数】统计某一个时间段内有多少个星期几\自定义一段时间有几个星期X的函数示例
时 间:2012-02-28 08:22:02
作 者:叶海峰 ID:31 城市:广州
摘 要:Accessoft-统计某一个时间段内有多少个星期几,自定义一段时间有几个星期X的函数示例
正 文:
网友冯先生问:有高手制作一个自定义一段时间有几个星期X的函数吗?
针对此贴,做了个自定义模块函数:
'=================================================
'-函数名称: SumDay
'-功能描述: 将某一个时间段内日期统计有多少个星期几
'-输入参数: 日期型数值 如第一个控件输入 2012-2-1 第二个控件输入 2012-2-29
'-返回参数: 返回日期型数值为数字型型 即1 2 3 这种
'-使用示例1: =SumDay([DateBegin],[DateEnd],3) '返某时间段内星期三有:3
'-使用示例2: =SumDay(#2/1/2012#, #2/29/2012#, 3) '返2012年2月1日至2012年2月29日内星期三有:5
'-作 者: 叶海峰
'-创建日期; 2012-2-27 16:18:00
'=================================================
Public Function SumDay(DateBegin As Date, DateEnd As Date, DayOfWeek As Byte) As Integer
Dim datecount As Integer, count As Integer, i As Integer
If DateBegin > DateEnd Then MsgBox "开始日期不能大于结束日期": Exit Function
datecount = DateEnd - DateBegin
For i = 0 To datecount
If Weekday(DateBegin + i, vbMonday) = DayOfWeek Then count = count + 1 '每周从星期1开始计算
Next
SumDay = count
End Function
'测试示例,按F5运行看效果
Sub a()
'3代表星期三,合起来意思就是某段时间内有几个星期三; 改成4就是有多少个星期四,以此类推
MsgBox SumDay(#2/1/2012#, #2/29/2012#, 3)
End Sub
示例如下图:
附件:
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access源码示例】VBA...(10.12)
- Access累乘示例,Acce...(10.09)
- 数值8.88,把整数8去掉,转...(10.08)
- 【Access自定义函数】一个...(09.30)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
学习心得
最新文章
- 获取文件修改日期的函数(10.18)
- Access快速开发平台--lis...(10.17)
- Access快速开发平台--普通用...(10.14)
- 【Access源码示例】VBA代码...(10.12)
- Access累乘示例,Access...(10.09)
- 数值8.88,把整数8去掉,转化成...(10.08)
- 用ACCESS开发的销售数据分析软...(10.06)
- 【中秋及国庆优惠】Access培训...(10.05)
- 2024欢度国庆--庆祝国庆华诞7...(10.01)
- 【Access自定义函数】一个繁简...(09.30)