Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

修正【自定义函数】取得指定日期指定工作日天数后的工作日期

时 间:2017-11-20 17:34:06
作 者:123木头人   ID:1455  城市:龙岩
摘 要:需求:自定义函数(日期,天数)结果是指定日期在指定工作日天数后的工作日期。要判断周六周日,不用考虑法定节假日。
正 文:

Bug参数用错了一个,而且没有考虑指定天数可能是负数,Demo2来修正了:

Function FDemo(Dd As Date, Dnum As Integer) As Date
    Dim i, Md As Integer
    i = Int(Dnum / 5)
    Md = Weekday(Dd, vbMonday)
    If Md + Dnum < 5 and Md + Dnum > 0 Then
        FDemo = Dd + Dnum
    Else
        FDemo = Dd + Dnum + i * 2
    End If
End Function

===============================

需求:自定义函数(日期,天数)结果是指定日期在指定工作日天数后的工作日期。要判断周六周日,不用考虑法定节假日。

Demo1

	
Function FDemo(Dd As Date, Dnum As Integer) As Date Dim i, Md As Integer i = Int(Dnum / 5) Md = Weekday(Dd, vbMonday) If Md + Dnum < 5 Then FDemo = Dd + i'此处加i是错的,应该加Dnum Else FDemo = Dd + Dnum + i * 2 End If End Function

简单测试了一下,能实现预期值,大家有空帮忙测试指正。
 



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助