主题：求助，如何生成考核表

如何统计某时段的次数？

想统计窦东东在7：00-8：30之间下站的天数应如何统计？就是开始时间早于08：30，结束时间晚于7：00

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:生成考核表.zip

 时间统计是相当麻烦的事情，请参考下面的代码

 

Dim count As Integer = 0
For Each dr As DataRow In DataTables("机关干部履职情况").select("")
    If new Date(1,1,1,dr("开始时间").hour,dr("开始时间").minute,0) <= new Date(1,1,1,8,30,0) AndAlso new Date(1,1,1,dr("结束时间").hour,dr("结束时间").minute,0) >= new Date(1,1,1,19,0,0) Then
        count += 1
    End If
Next
msgbox(count)

你给的代码是统计次数，如果同一天有两次就统计两次，我想要统计天数，代码应如何改？

Dim ls As new List(Of String)
For Each dr As DataRow In DataTables("机关干部履职情况").Select("")
    If new Date(1,1,1,dr("开始时间").hour,dr("开始时间").minute,0) <= new Date(1,1,1,8,30,0) AndAlso new Date(1,1,1,dr("结束时间").hour,dr("结束时间").minute,0) >= new Date(1,1,1,19,0,0) Then
        If ls.Contains(dr("日期")) = False Then
            ls.add(dr("日期"))
        End If
    End If
Next
msgbox(ls.count)

如何把23：30-01：30，这样的统计到00：00到06：00的时段内

你在统计的时候，把这个时段写进筛选条件里面去即可。

要是想把23：00-0：00，统计进20：00-0：00这个时间段怎么统计啊？

For Each dr As DataRow In DataTables("sheet2").Select(" jcr = '" & name  & "'  or jcr like '" & name & ",%' or jcr like '%," & name & ",%' or jcr like '%," & name & "' ")
    If new Date(1,1,1,dr("kssj").hour,dr("kssj").minute,0) < = new Date(1,1,1,23,59,0) AndAlso new Date(1,1,1,dr("jssj").hour,dr("jssj").minute,0) > new Date(1,1,1,20,0,0) Then
        If ls.Contains(dr("jcrq")) = False Then
            ls.add(dr("jcrq"))
        End If
    End If
Next
 红色的部分应该写成什么啊？

 foxtable里面可以这样查了，参考

 

Tables("机关干部履职情况").Filter = "开始时间 >= #" & new Date(1900, 1, 1, 23, 0, 0) & "# and 结束时间 = #" & new Date(1900, 1, 1, 0, 0, 0) & "#"

参考

 

Dim count As Integer = DataTables("机关干部履职情况").Compute("count(开始时间)", "开始时间 >= #" & new Date(1900, 1, 1, 23, 0, 0) & "# and 结束时间 = #" & new Date(1900, 1, 1, 0, 0, 0) & "#")
msgbox(count)