Dim td As Date=now() Dim t0 As Date Dim t As new timespan(0,0,0,0) For Each dr As DataRow In DataTables("A").DataRows t0=dr("时间") If dr("sign")=1 Then t=t.add(td-t0) Else If dr("sign")=2 Then t=t.subtract(td-t0) End If Next MessageBox.Show(t.Days & "天" & t.Hours & "小时" & t.Minutes & "分" & t.Seconds & "秒")