主题：如何计算两个日期时间型数据的间隔小时数？

如何计算两个日期时间型数据的间隔小时数？比如2015/5/4 8:00:00 到2015/5/15 19:00:00 之间间隔多少小时！

  直接相减即可

 

http://www.foxtable.com/help/topics/0287.htm

 

http://www.foxtable.com/help/topics/1452.htm

 

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

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)

此主题相关图片如下：55555555.jpg

目的是算出“时间列”里面的日期时间型数据和2015年4月15日 早上8点整这个时间之间的间隔小时，然后填到“间隔时间”列里面

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)

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

此主题相关图片如下：6666666.png

 关闭项目，重新打开，输入代码。

好了，运行成功，谢谢