统计去除周末的天数

Public Function Gettspcsxr(rqks As Date, rqjs As Date) As Integer    'Gettspcsxr意为"取天数排除双休日"
    Dim D As Integer
    D = 0
    For k = 0 To DateDiff("d", rqks, rqjs)

        If Weekday(DateAdd("d", k, rqks), vbMonday) = 6 Or _
           Weekday(DateAdd("d", k, rqks), vbMonday) = 7 Then
            D = D + 1
        End If

    Next k
    Debug.Print D
    Gettspcsxr = DateDiff("d", rqks, rqjs) + 1 - D

End Function

红色字体为修改部分