自定义输入日期经过多少天后到达日期-仙来
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


自定义输入日期经过多少天后到达日期

发表时间:2017/11/18 11:46:02 评论(18) 浏览(5762)  评论 | 加入收藏 | 复制
   
摘 要:自定义输入一个日期经过多少天后到达的日期,如果该日期为非工作日,顺延至下周一(不包括法定节假日)。
正 文:

 自定义输入一个日期经过多少天后到达的日期,如果该日期为非工作日,顺延至下周一(不包括法定节假日)。

'指定日期经过多少天后到达工作日
Function takedate(bookdate As Date, throwdate As Long) As String

takedate = DateAdd("d", throwdate, bookdate)
If WeekdayName(Weekday(takedate)) = "星期六" Then
    MsgBox "到达日期为非工作日,顺延到下周一!"
   takedate = DateAdd("d", throwdate, bookdate) + 2
 End If
If WeekdayName(Weekday(takedate)) = "星期日" Then
    MsgBox "到达日期为非工作日,顺延到下周一!"
   takedate = DateAdd("d", throwdate, bookdate) + 1
 End If
End Function


附   件:

点击下载此示例


图   示:

点击图片查看大图

Access软件网交流QQ群(群号:198465573)
 
 相关文章
计算工作日天数的函数  【askheart  2008/9/12】
求工作日数的示例  【林岚  2009/7/26】
工作日再修改版  【蒋元根  2010/7/9】
【菜鸟入门】计算工龄,日期相减得出工作年限(周期)的示例\工作日示...  【麥田  2011/4/1】
[示例]计算某一段时间内的工作日和假日天数  【金宇  2012/5/12】
【Access自定义函数】当前月第一个工作日的示例,当前月最后一个...  【红尘如烟  2013/1/19】
根据节假日表计算两日期间的工作日天数、n个工作日后的工作日日期  【网行者  2013/6/22】
修正【自定义函数】取得指定日期指定工作日天数后的工作日期  【123木头人  2017/11/20】
常见问答
技术分类
相关资源
文章搜索
关于作者

仙来

文章分类

文章存档

友情链接