- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 时段录入导出问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54840)
-- 发布时间：2014/8/5 22:19:00
-- 时段录入导出问题
请教专家：
此主题相关图片如下：合计图片.jpg
此主题相关图片如下：7月机型汇总.png
此主题相关图片如下：导出机型汇总.png
-- 发布时间：2014/8/5 22:24:00
--
1、excel没有时段一说；
2、合计就是合计秒的，你可以不用合计模式，用汇总模式；或者自己加入一行合计；
3、导出的时候，可以设计模板导出，模板可以设置表达式转换为时段。
-- 发布时间：2014/8/6 22:10:00
--
谢谢回复，又学到一些
-- 发布时间：2014/8/6 22:22:00
--
麻烦版主 方便告诉一下 秒转小时分钟的表达吗？刚入门，请多多帮助
-- 发布时间：2014/8/6 22:37:00
--
Dim N As Integer = 3662
Dim hour As Integer = N \\ 3600
Dim minute As Integer = (N Mod 3600) \\ 60
Dim second As Integer = N Mod 60
msgbox(hour & " " & minute & " " & second)
-- 发布时间：2014/8/9 21:56:00
--
谢谢耐心回复。还有点问题：
-- 发布时间：2014/8/10 9:25:00
--
时段列可以直接用表达式计算的，除非你设置的不是时段，而是日期时间类型。
具体问题，请上传一个例子说明。
-- 发布时间：2014/8/10 17:19:00
--
专家你好！
此主题相关图片如下：表达式错误.png
此主题相关图片如下：负值.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:时段计算.table |
-- 发布时间：2014/8/10 17:49:00
--
1、你的起始时间、结束时间必须是时段而不能是时间，才能用表达式计算
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:时段计算.table |
2、如果改代码
Select Case e.DataCol.name
Case "起始时间","结束时间"
Dim dr As DataRow = e.DataRow
If dr.IsNull("起始时间") Or dr.IsNull("结束时间") Then
dr("本次用时") = Nothing
Else
If dr("结束时间") >= dr("起始时间") Then
Dim tp As TimeSpan = dr("结束时间") - dr("起始时间")
dr("本次用时") = tp.TotalSeconds()
Else
Dim d1 As Date = dr("结束时间")
Dim d As Date = dr("起始时间")
Dim tp As TimeSpan = new Date(1900, 1, 2, d1.Hour, d1.Minute, d1.Second) - new Date(1900, 1, 1, d.Hour, d.Minute, d.Second)
dr("本次用时") = tp.TotalSeconds()
End If
End If
End Select
-- 发布时间：2014/8/11 21:16:00
--
谢谢专家的及时回复，让我对狐表更有信心。