计算同一员工时间记录的时差,如何通过修改代码,实现计算时差为实际时差的5倍,请各位老师指教,谢谢。
drs = DataTables("C").Select("[序号] >= " & dr("序号") & " And [员工] = '" & dr("员工") & "'", "[序号]")
For k As Integer = 1 To drs.Count - 1 '重算余下行的时差
Dim t As TimeSpan = CDate(drs(k)("时间")) - CDate(drs(k-1)("时间"))
drs(k)("用时") = (Format(t.Hours,"00") & ":" & Format(t.Minutes,"00") & ":" & Format(t.Seconds,"00"))
Next