Foxtable(狐表)用户栏目专家坐堂 → 时间差计算问题


  共有1592人关注过本帖树形打印复制链接

主题:时间差计算问题

帅哥哟,离线,有人找我吗?
HJG_HB950207
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:394 积分:6009 威望:0 精华:0 注册:2015/2/17 10:18:00
时间差计算问题  发帖心情 Post By:2017/4/13 15:02:00 [只看该作者]

高速公路收费站 表A如下几列


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

          A1       2014-12-01 10:20:20
          A1                                                    2014:12-01 11:20:20
           :
           :
           :
       
          由于进口和出口在不同的车道 故一台车在同一站进出,形成的是两条记录
          
          请教老师代码:
          如何计算时间差 (同一台车在同一天 进口时间和出口时间的差) 
                     时间差计算结果在出口时间不为空的行记录,同一天只有出口或只有进口的车辆不计算。
                                         

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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

 回到顶部