以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  时间计算  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121141)
--  作者：XINYUEMIN
--  发布时间：2018/6/29 18:42:00
--  时间计算
表属性：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
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2018/6/29 20:26:00
--  
Dim  tp As TimeSpan
tp = dr("用车时间止") - dr("用车时间起")
Dim v As Double = tp.TotalSeconds() / 3600 - 10
If v < 0 Then v = v + 24
dr("超时数") = v