Foxtable(狐表)用户栏目专家坐堂 → [求助]时间差计算


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

主题:[求助]时间差计算

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


加好友 发短信
等级:小狐 帖子:316 积分:2193 威望:0 精华:0 注册:2018/2/4 9:37:00
[求助]时间差计算  发帖心情 Post By:2018/4/19 19:31: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
            If dr("升井时间") > dr("入井时间")
                tp = dr("升井时间") - dr("入井时间")
            Else
                tp = cdate(dr("升井时间")).adddays(1) - cdate(dr("入井时间"))
                dr("计时") = tp.TotalSeconds()   '真正的时段型数据要转换为秒数,才能存入时段列
            End If
        End If
End Select


图片点击可在新窗口打开查看此主题相关图片如下:sj.png
图片点击可在新窗口打开查看

第一行计算不对哪里错了

[此贴子已经被作者于2018/4/19 19:31:16编辑过]

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


加好友 发短信
等级:二尾狐 帖子:593 积分:5562 威望:0 精华:0 注册:2012/6/29 19:11:00
  发帖心情 Post By:2018/4/19 19:42:00 [只看该作者]

把案例发上来看一下~

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/19 19:43: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
            If dr("升井时间") > dr("入井时间")
                tp = dr("升井时间") - dr("入井时间")
                dr("计时") = tp.TotalSeconds()  
            Else
                tp = cdate(dr("升井时间")).adddays(1) - cdate(dr("入井时间"))
                dr("计时") = tp.TotalSeconds()   '真正的时段型数据要转换为秒数,才能存入时段列
            End If
        End If
End Select

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


加好友 发短信
等级:小狐 帖子:316 积分:2193 威望:0 精华:0 注册:2018/2/4 9:37:00
  发帖心情 Post By:2018/4/19 19:53:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:jss.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:js.png
图片点击可在新窗口打开查看

生成Excel表以后   计时列  怎么样可以和在软件里一样(单元格格式我都调了   不行)  显示  几小时分


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


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

模板那里这样写

 

<[计时] \ 3600 & ":" & ([计时] mod 3600) \ 60 & ":" & ([计时] mod 60)>


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


加好友 发短信
等级:小狐 帖子:316 积分:2193 威望:0 精华:0 注册:2018/2/4 9:37:00
  发帖心情 Post By:2018/4/19 20:03:00 [只看该作者]

<[计时] \ 3600 & "时" & ([计时] mod 3600) \ 60 & "分" & ([计时] mod 60)>

 

 

我改成这样   但是最后面  多了一个 0

[此贴子已经被作者于2018/4/19 20:12:25编辑过]

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


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

改成

 

<[计时] \ 3600 & "时" & ([计时] mod 3600) \ 60 & "分">


 回到顶部