以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动填入时间差的代码问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1694)
--  作者：hejfen
--  发布时间：2009/1/29 11:42:00
--  自动填入时间差的代码问题
dim t1 as date = e.datarow("加班起时间")
dim t2 as date = e.datarow("加班止时间")
e.datarow("合计加班时间") = datadiff(h,t2,t1)

出现错误，求助正确的代码！
--  作者：czy
--  发布时间：2009/1/29 23:10:00
--  
datadiff是什么？

看一下这个贴子：
http://www.foxtable.com/dispbbs.asp?boardid=2&Id=1692
--  作者：程兴刚
--  发布时间：2009/1/30 10:32:00
--  
以下是引用hejfen在2009-1-29 11:42:00的发言：
dim t1 as date = e.datarow("加班起时间")
dim t2 as date = e.datarow("加班止时间")
e.datarow("合计加班时间") = datadiff(h,t2,t1)

出现错误，求助正确的代码！
没有文件，未测试，这样试试：

dim t1 as date = e.datarow("加班起时间")\'加班起止时间均为长时间格式型
dim t2 as date = e.datarow("加班止时间")
Dim t3 As TimeSpan = t2 - t1
e.datarow("合计加班时间") = t3.TotalHours


不知道这样简化行不行，再试试看：

Dim t As TimeSpan = e.datarow("加班止时间") - e.datarow("加班起时间") \'加班起止时间均为长时间格式型
e.datarow("合计加班时间") = t.TotalHours