以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]日期时间值相减的问题（已解决）？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129730)
--  作者：lunengcheng
--  发布时间：2019/1/4 17:35:00
--  [求助]日期时间值相减的问题（已解决）？
各位老师前辈，现在有两列时间，一列是摘机时间，一列是挂机时间，现在想计算通话时长，但是下面的代码报错，不知道什么什么地方的问题，向大家请教一下，多谢了！

摘机时间：2019-01-04 17:23:21.000 
挂机时间：2019-01-04 17:25:41.000

\'计算通话时长
Sel-ect Case e.DataCol.name
    Case "摘机时间","挂机时间"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("摘机时间") Or dr.IsNull("挂机时间") Then
            dr("通话时长") = "缺失"
        Else
            Dim  tp As TimeSpan
            tp = dr("挂机时间") - dr("摘机时间")
            Dim v As Double = tp.TotalSeconds()
            dr("通话时长") = format(tp.TotalSeconds() \\ 3600, "00") & ":" & format((tp.TotalSeconds() Mod 3600) \\ 60, "00") & ":" & format(tp.TotalSeconds() Mod 60, "00")
        End If
End Sel-ect


备注：Sel-ect这个是方便发布到论坛加的“-”！
[此贴子已经被作者于2019/1/10 13:22:39编辑过]
--  作者：有点甜
--  发布时间：2019/1/4 17:39:00
--  

tp = dr("挂机时间") - dr("摘机时间")

 

改成

 

tp = cdate(dr("挂机时间")) - cdate(dr("摘机时间"))