- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于时间差的计算。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63630)
-- 发布时间：2015/1/25 14:26:00
-- [求助]关于时间差的计算。
计算开始时间与结束时间相差的分钟数，使用了以下的代码，但是当开始时间是23：00，结束时间是01：13时，计算出来的时间负数，请问该如何处理？谢谢！
代码：
Select Case e.DataCol.name
Case "开始时间","结束时间"
Dim dr3 As DataRow = e.DataRow
If dr3.IsNull("开始时间") Or dr3.IsNull("结束时间") Then
dr3("耗时") = Nothing
Else
Dim tp As TimeSpan
tp = dr3("结束时间") - dr3("开始时间")
dr3("耗时") = tp.TotalSeconds()/60/60 \'真正的时段型数据要转换为秒数,才能存入时段列
End If
End Select
-- 发布时间：2015/1/25 14:55:00
--
跨天的，请带上日期啊，或者如果结束时间大于开始时间，就加1天
Select Case e.DataCol.name
Case "开始时间","结束时间"
Dim dr3 As DataRow = e.DataRow
If dr3.IsNull("开始时间") Or dr3.IsNull("结束时间") Then
dr3("耗时") = Nothing
Else
Dim d1 As Date = dr3("结束时间")
Dim d2 As Date = dr3("开始时间")
If d1 > d2 Then
d2 = d2.AddDays(1)
End If
Dim tp As TimeSpan
tp = d1 - d2
dr3("耗时") = tp.TotalSeconds()/60/60 \'真正的时段型数据要转换为秒数,才能存入时段列
End If
End Select
-- 发布时间：2015/1/25 15:18:00
--
是这样不呢？还是不行呢，如图：
Select Case e.DataCol.name
Case "开始时间","结束时间"
Dim dr3 As DataRow = e.DataRow
If dr3.IsNull("开始时间") Or dr3.IsNull("结束时间") Then
dr3("耗时") = Nothing
Else
Dim d1 As Date = dr3("结束时间")
Dim d2 As Date = dr3("开始时间")
If d1 < d2 Then
d1 = d1.AddDays(1)
End If
Dim tp As TimeSpan
tp = d1 - d2
dr3("耗时") = tp.TotalSeconds()/60/60 \'真正的时段型数据要转换为秒数,才能存入时段列
End If
End Select
此主题相关图片如下：qq截图20150125152243.png
-- 发布时间：2015/1/25 15:29:00
--
[此贴子已经被作者于2015-1-25 15:29:40编辑过]
-- 发布时间：2015/1/25 15:31:00
--
呃，不可能，重置列看看，不行就上传例子。