以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  时间差计算问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99155)
--  作者：HJG_HB950207
--  发布时间：2017/4/13 15:02:00
--  时间差计算问题
高速公路收费站 表A如下几列


         车号        进口时间                                 出口时间                                时间差

          A1       2014-12-01 10：20：20
          A1                                                    2014：12-01 11：20：20
           :
           :
           :
       
          由于进口和出口在不同的车道 故一台车在同一站进出，形成的是两条记录
          
          请教老师代码：
          如何计算时间差 （同一台车在同一天 进口时间和出口时间的差） 
                     时间差计算结果在出口时间不为空的行记录，同一天只有出口或只有进口的车辆不计算。
                                         
--  作者：有点色
--  发布时间：2017/4/13 15:14:00
--  
Dim dt As DataTable = DataTables("表C")
For Each dr As DataRow In dt.Select("出口 is not null")
    Dim fdr As DataRow = dt.Find("进口 is not null and 车号 = \'" & dr("车号") & "\'", "_Identify desc")
    If fdr IsNot Nothing Then
        Dim sp As TimeSpan = dr("出口") - fdr("进口")
        dr("时间差") = sp.TotalHours
    End If
Next