主题：日期-日期

有两列 报账日期，初发车日期  我想要报账日期减去出发日期  ，求一段正确的代码。

这是我在帮助里套的代码    不好用，只想得出几天的结果，不要几点几分几秒，

Select Case e.DataCol.name
    Case "报账日期","初发车日期"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("报账日期") Or dr.IsNull("初发车日期") Then
           dr("出车天数") = Nothing
        Else
            Dim tp As TimeSpan
            tp = dr("报账日期") - dr("初发车日期")
                  End If
End Select， 

 

 

 

 

此主题相关图片如下：2.jpg

直接这样就行了吧

 

dr("出车天数")  = dr("报账日期") - dr("初发车日期")

如代码

 

 

Select Case e.DataCol.Name
    Case "开始日期","完成日期"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("开始日期") OrElse dr.IsNull("完成日期") Then
            dr("执行天数") = Nothing
        Else
            Dim tp As TimeSpan = dr("完成日期") - dr("开始日期")
            dr("执行天数") = Cint(tp.TotalDays)
        End If
End Select

谢谢  谢谢， 问题解决，收尾了 全面测试了。