计算工作日天数的函数【Access软件网】 |
您所在的位置：网站首页 › 计算工作日天数 › 计算工作日天数的函数【Access软件网】 |
|
时 间:2008-09-12 19:52:10 作 者:askheart ID：17 城市：秦皇岛 摘 要:计算日期范围内不包括周六日的天数,其中错误程序没设置好，有待完善。 正 文: '计算日期范围内不包括周六日的天数 '示例：workDays("2008-9-1","2008-9-15') Function workDays(ByVal sDate As Date, ByVal eDate As Date) As Long On Error Resume Next Dim i As Long If sDate > eDate Then MsgBox "起始日期不能大于截止日期！", vbCritical, "错误" workDays = 0 Else For workDays = 0 To (eDate - sDate) If Weekday(sDate) > 1 And Weekday(sDate) Access软件网QQ交流群 (群号:54525238) Access源码网店 |
今日新闻 |
推荐新闻 |
| CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |