主题：代码修改

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("执行天数") = tp.TotalDays
        End If
End Select

老师，什么的代码执行后出现这个错误提示
此主题相关图片如下：1.png

老师，上面的代码执行后出现这个错误提示

比如第一行20171121-20180213  这个时间段里面包括了11月，12月，1月，2月，所以有效月份是4

  第二行20180205-20180629  这个时间段里面包括了02月，03月，04月，05月，06月，所以有效月份是5

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("执行天数") = tp.TotalDays
        End If
End Select

会已30天为参照+四舍五入，比如 2018-04-30至2018-05-02 显示结果会是0，但我想要的结果应该是2，因为有4月和5月

老师，能帮我修改下吗？

可以了，谢谢老师，感谢！

不好意思，老师，有个问题出现，假如是2017-12-05至2018-02-26 会出现0 而不是3