- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求教：如何实现签退时间减签到时间等于在线时长? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51799)
-- 发布时间：2014/6/3 19:02:00
-- 求教：如何实现签退时间减签到时间等于在线时长?
求教：如何实现签退时间减签到时间等于在线时长?
此主题相关图片如下：123456.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:在线时长项目求助.zip |
-- 发布时间：2014/6/3 19:18:00
--
如下代码，一次性统计
Dim xms As List(Of String) = DataTables("表A").GetValues("姓名")
For Each xm As String In xms
Dim drs As List(of DataRow) = DataTables("表A").Select("姓名 = \'" & xm & "\'", "登记时间")
For i As Integer = 0 To iif(drs.Count Mod 2 = 0, drs.count - 1, drs.count - 2) Step 2
drs(i)("在线时长") = (drs(i+1)("登记时间") - drs(i)("登记时间")).TotalMinutes
drs(i+1)("在线时长") = drs(i)("在线时长")
Next
Next
-- 发布时间：2014/6/3 19:30:00
-- 回复：（有点甜） 如下代码，一次性统计 ...
感谢有点甜老师