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