计算工作日天数的函数

时　间: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) < 7 Then i = i + 1 End If sDate = sDate + 1 Next workDays workDays = i End If End Function

Access软件网QQ交流群 (群号:483923997) 　　　　　　Access源码网店