[求助]时间差计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2479人关注过本帖树形打印复制链接主题：[求助]时间差计算

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 Select

此主题相关图片如下：sj.png

第一行计算不对哪里错了

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

q2520

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：316 积分：2193 威望：0 精华：0 注册：2018/2/4 9:37:00

Post By：2018/4/19 19:53:00 [显示全部帖子]

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

此主题相关图片如下：js.png

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

q2520

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

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