- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 日期相减 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178680)
-- 发布时间：2022/7/15 13:49:00
-- 日期相减
已解决
If e.DataRow("是否停机") = "是" Then
Select Case e.DataCol.name
Case "临时方案_完成时间","影响内容_停机开始日期"
Dim dr12 As DataRow = e.DataRow
If dr12.IsNull("临时方案_完成时间") Or dr12.IsNull("影响内容_停机开始日期") Then
dr12("临时方案_完成时间") = Nothing
Else
Dim tp12 As TimeSpan = dr12("临时方案_完成时间") - dr12("影响内容_停机开始日期")
dr12("临时方案_完成时间") = tp12.TotalHours \'真正的时段型数据要转换为秒数,才能存入时段列
End If
End Select
Select Case e.DataCol.name
Case "影响内容_停机结束日期","影响内容_停机开始日期"
Dim dr13 As DataRow = e.DataRow
If dr13.IsNull("影响内容_停机结束日期") Or dr13.IsNull("影响内容_停机开始日期") Then
dr13("影响内容_停机时间") = Nothing
Else
Dim tp13 As TimeSpan = dr13("影响内容_停机结束日期") - dr13("影响内容_停机开始日期")
dr13("影响内容_停机时间") = tp13.TotalHours \'真正的时段型数据要转换为秒数,才能存入时段列
End If
End Select
End If
此主题相关图片如下：1.jpg
[此贴子已经被作者于2022/7/15 13:53:37编辑过]