主题：如何计算工作日天数？

例如：我想计算2020年12月1日至2020年12月22日的工作日天数，怎么写代码啊？
此主题相关图片如下：qq图片20201222154509.png

要去除周六和周日哦

If e.DataRow.IsNull("开始时间") And  e.DataRow.IsNull("结束时间") Then
    e.DataRow("天数") = Nothing
Else
    Dim d1 As Date = e.DataRow("开始时间")
    Dim d2 As Date = e.DataRow("结束时间")
    If d1 > d2
        e.DataRow("天数") = 0
    Else
        Dim cnt As Integer = (d2 - d1).TotalDays
        For i As Integer = 1 To cnt
            Dim d3 As Date = d1.adddays(i)
            If d3.DayOfWeek = 0 OrElse d3.DayOfWeek = 6 Then '如果是星期天或者星期六
                cnt = cnt - 1
            End If
        Next
        e.DataRow("天数") = cnt + 1
    End If
End If

有时“天数”我需要手动输入数据，这段代码怎么改啊？

If e.DataRow.IsNull("开始时间") And  e.DataRow.IsNull("结束时间") Then     e.DataRow("天数") = Nothing Else     Dim d1 As Date = e.DataRow("开始时间")     Dim d2 As Date = e.DataRow("结束时间")     If d1 > d2         e.DataRow("天数") = 0     Else         Dim cnt As Integer = (d2 - d1).TotalDays         For i As Integer = 1 To cnt             Dim d3 As Date = d1.adddays(i)             If d3.DayOfWeek = 0 OrElse d3.DayOfWeek = 6 Then '如果是星期天或者星期六                 cnt = cnt - 1             End If         Next         e.DataRow("天数") = cnt + 1     End If End If