Access中的Workdate自定义函数
时 间:2017-11-22 13:37:58
作 者:张志 ID:8 城市:上海 QQ:2851379730
摘 要:在Access中使用类似EXCEL中的WorkDate函数
正 文:
在Excel中有workdate函数,在ACCESS中却没有,因此写了一个自定义函数,供参考。
说明:
1、如果节假日占用了休息日,要减少节假日,比如放假7天,其中占用了周日,实际假日为6天
2、开始日期一定要为工作日,不能为节假日或休息日。
Public Function Access_Workdate(startDate As Date, Days As Long, Holidays As Long) As Date '从某一工作日的日期(含该工作日)开始,多少个工作日后,后一天的工作日日期 'startDate '开始日期 'Days 天数 'Holidays,区间内的节假日天数 Dim endDate As Date Dim m As Date Dim i As Long i = 1 endDate = startDate + (Days + Holidays) * 3 For m = startDate To endDate If Weekday(m) > 1 And Weekday(m) < 7 Then i = i + 1 If i = Days + Holidays Then Access_Workdate = m + 2 Select Case Weekday(Access_Workdate) Case 6 Access_Workdate = Access_Workdate + 3 Case 7 Access_Workdate = Access_Workdate + 2 End Select Exit Function End If End If Next m 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)