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

以下是计算两个日期列之间天数的代码，如果需要计算工作日，代码应该如何改，请各位老师指教，谢谢。

   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
            e.DataRow("借用天数") = (d2-d1).TotalDays
        End If
    End If

在帮助中有关于日期间隔的函数（如下），不知如何使用，请狐爸老师根据本例指导一下，我需要的就是每周除去两个休息日。谢谢狐爸老师的回复。

计算两个日期的间隔。

语法

DateDiff(Interval, Date1, Date2)

Interval：表示时间间隔的类型。

Date1：起始日期

Date2：结束日期

Interval 包含以下设置：

yyyy 年
q 季度
m 月
y 某年的某一天
d 天
w 工作日
ww 周
h 时
n 分
s 秒

谢谢狐爸老师，问题已解决，代码有一点小瑕疵，作了一点调整，附上，狐爸老师不会见怪吧。再次感谢狐爸老师的热心帮助！！

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
    End If
End If