VBS 计算除周六周日的天数

Function CountDays(Date1,Date2)
On Error Resume Next
        Err.Clear

        da1=Date1
        da2=Date2

            DT1=FormatDateTime(Date1,2)
        DT2=FormatDateTime(Date2,2)

Dim countNum
        countNum=DateDiff("d",DT1,DT2)

For i=da1 to da2
If  weekday(i)=1 or weekday(i)=7 Then
                    countNum=countNum-1
End If
Next

        CountDays=countNum
End Function

转载于:https://www.cnblogs.com/testerZH/archive/2012/01/31/2333285.html