主题：变量如何运算

 你两个日期类型相减，得到的就是一个 Timespan 类型。

 之后，你需要对这个值，进行什么操作？直接说目的。

关于时段，还可以看看：
http://www.foxtable.com/help/topics/2505.htm

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

不过楼主，你最好先上传例子，说明问题和需求，别人帮你写好，以后你可以参照着写。

你目前一些基本的概念还没有掌握，即使有人指导，也会很费力，而且耽误时间。

 回复24楼，包裹一下

If e.Row.Index > 0 Then
    If Tables("煤焦油油耗跟踪表").Current.IsNull("日期") Or Tables("煤焦油油耗跟踪表").Current.IsNull("读数时间") Then
        MessageBox.Show("没有输入日期或读数时间")
    Else
        Dim tp1 As TimeSpan = e.Row("日期")-e.Table.Rows(e.Row.Index-1)("日期")
        Dim tp As TimeSpan = e.Row("读数时间")-e.Table.Rows(e.Row.Index-1)("读数时间")
        Dim tp3 As TimeSpan = tp1+tp
        e.Row("间隔小时数")= tp3.Days & "天" & tp3.Hours & "小时" & tp3.Minutes & "分"
    End If
   
    If Tables("煤焦油油耗跟踪表").Current.IsNull("油表读数") Then
        MessageBox.Show("没有输入油表读数")
    Else
        e.Row("读数差") = e.Row("油表读数")-e.Table.Rows(e.Row.Index-1)("油表读数")
    End If
   
    Dim tp4 As TimeSpan = e.Row("日期")-e.Table.Rows(e.Row.Index-1)("日期")
    Dim tp5 As TimeSpan = e.Row("读数时间")-e.Table.Rows(e.Row.Index-1)("读数时间")
    Dim tp6 As TimeSpan = tp4+tp5
    Dim sz As Double = tp6.TotalHours
    Dim s1 As Double  = e.Row("油表读数")-e.Table.Rows(e.Row.Index-1)("油表读数")
    e.Row("每小时油耗容量") = s1\sz
End If