主题：时间计算

表属性：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("用车时间起")
            dr("超时数") = tp.TotalSeconds() / 3600 - 10
        End  If
    End  Select
负数的代码怎么写
此主题相关图片如下：123456.png