'计算日期范围内不包括周六日的天数
'示例: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群(群号:198465573) |