Foxtable(狐表)用户栏目专家坐堂 → [求助]日期时间值相减的问题(已解决)?


  共有2050人关注过本帖树形打印复制链接

主题:[求助]日期时间值相减的问题(已解决)?

帅哥哟,离线,有人找我吗?
lunengcheng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:272 积分:2125 威望:0 精华:0 注册:2018/8/13 9:55:00
[求助]日期时间值相减的问题(已解决)?  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/4 17:39:00 [只看该作者]

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

 

改成

 

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


 回到顶部