Foxtable(狐表)用户栏目专家坐堂 → [求助]时间计算代码修改


  共有2287人关注过本帖平板打印复制链接

主题:[求助]时间计算代码修改

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


加好友 发短信
等级:七尾狐 帖子:1525 积分:10580 威望:0 精华:0 注册:2008/9/24 11:16:00
[求助]时间计算代码修改  发帖心情 Post By:2014/9/26 20:38:00 [只看该作者]


计算同一员工时间记录的时差,如何通过修改代码,实现计算时差为实际时差的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

 回到顶部