- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何计算两个日期时间型数据的间隔小时数？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71327)
-- 发布时间：2015/7/9 13:55:00
-- 如何计算两个日期时间型数据的间隔小时数？
如何计算两个日期时间型数据的间隔小时数？比如2015/5/4 8:00:00 到2015/5/15 19:00:00 之间间隔多少小时！
-- 发布时间：2015/7/9 14:03:00
--
直接相减即可
http://www.foxtable.com/help/topics/0287.htm
http://www.foxtable.com/help/topics/1452.htm
-- 发布时间：2015/7/9 15:12:00
-- 请帮个忙吧，看看怎么回事！
Dim dr As DataRow
Dim tp As TimeSpan
dr=e.DataRow
tp=dr("时间列")-#2015/5/14 8:00:00#
dr("间隔时间")=tp.tTotalHours
运行结果是
此主题相关图片如下：qq图片20150709151105.png
-- 发布时间：2015/7/9 15:14:00
--
Dim tp As TimeSpan
Dim d1 As Date = "2015/5/14 8:00:00"
Dim d2 As Date = Date.Today
tp = d2-d1
msgbox(tp.TotalHours)
-- 发布时间：2015/7/9 15:25:00
-- 完整的图片
此主题相关图片如下：55555555.jpg
目的是算出“时间列”里面的日期时间型数据和2015年4月15日 早上8点整这个时间之间的间隔小时，然后填到“间隔时间”列里面
-- 发布时间：2015/7/9 15:27:00
--
Dim tp As TimeSpan
Dim d1 As Date = "2015/5/14 8:00:00"
Dim d2 As Date = e.DataRow("时间列")
tp = d2-d1
msgbox(tp.TotalHours)
-- 发布时间：2015/7/9 15:27:00
--
Dim tp As TimeSpan
Dim d1 As Date = "2015/5/14 8:00:00"
Dim d2 As Date = e.DataRow("时间列")
tp = d2-d1
e.DataRow("间隔时间") = tp.TotalHours
-- 发布时间：2015/7/9 16:13:00
-- 错误
此主题相关图片如下：6666666.png
-- 发布时间：2015/7/9 16:15:00
--
关闭项目，重新打开，输入代码。
-- 发布时间：2015/7/9 16:22:00
-- 好了，运行成功，谢谢
好了，运行成功，谢谢