主题：[求助]计算两个日期列的工作日（已解决）

这个不好办的，传统节假日的放假安排不固定，都要等国务院通知，算不了。

大概如此：

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 cnt1 As Integer = (d2-d1).TotalDays
        Dim cnt2 As Integer
        For i As Integer = 1 To cnt
            Dim d3 As Date = d1.adddays(i)
            If d3.DayOfWeek = 0 OrElse d3.DayOfWeek = 6 Then '如果是星期6或者星期天
                cnt1= cnt1 -1
            End If
        Next
       e.DataRow("借用天数") = cnt
    End If
End If