关于一个统计个数的查询问题

biddqjh

请问各位高手，有以下一个表怎么统计一个时间段每个故障发生的次数，关键问题是相同故障5分钟以内重复出现只记一次，希望高手指教，非常感谢！！

biddqjh

忘了放数据样式

时间                     故障名称
2012-9-10 12:00        aaaa
2012-9-10 12:01        aaaa
2012-9-10 12:01        aaaa
2012-9-10 13:02        asvds
2012-9-11 14:02        vvv
2012-9-12 14:02        vvv
2012-9-13 15:02        few
2012-9-14 16:02        dq
2012-9-15 17:02        aaaa

biddqjh

顶起来，不能沉下去

roych

这个估计得需要ADO。。。（注意，第一个查询，也就是“时间查询”不能分类汇总，否则ADO自定义查询函数就白用了）貌似多定义了一个Date2~~~

1. Function getValue(MyDate As Date) As Long
   
2. Dim rst As New ADODB.Recordset
   
3. Dim i As Long, s As Long
   
4. Dim date1 As Date, date2 As Date
   
5. Dim MyItem As String
   
6. '注意，记录集排序很重要。
   
7. rst.Open "select * from sheet1 order by 故障名称", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
8. date1 = rst(1)
   
9. MyItem = rst(2)
   
10. For i = 1 To rst.RecordCount
    
11. '判断第一个时间值和当前时间之差是否在5分钟内
    
12.     If DateDiff("n", MyDate, rst(1)) <= 5 Then
    
13. '如果是同一个故障，则开始计数
    
14.         If rst(2) = MyItem Then
    
15.             s = s + 1
    
16.         Else
    
17. '否则就更新故障名称再计数。需要注意的是，这部分会将前面已经计数的进行累计。
    
18.             MyItem = rst(2)
    
19.             s = s + 1
    
20.         End If
    
21.     End If
    
22.     rst.MoveNext
    
23. Next
    
24. getValue = s
    
25. rst.Close
    
26. End Function

复制代码

在这里我还是说两句题外话吧：
1、周末的帖子可能不会马上得到回复的，请您耐心些许。如果周一以后仍未有回复的话，再顶起或者重新发帖。——事实上我一般更喜欢看新发表的帖子。
2、发帖时尽可能把问题说清楚，必要的话，请上传实例附件。毕竟不是谁都有时间就您的问题来做一个例子的。

djt

时间段怎么划分；5分钟如何界定，楼主都没说清楚

roych

djt 发表于 2012-9-24 09:44
时间段怎么划分；5分钟如何界定，楼主都没说清楚

这里以第一条记录开始，符合5分钟内的算第一条；超过第一条记录5分钟的算新记录，重新计算以新纪录为基准的5分钟内的记录。

biddqjh

roych 发表于 2012-9-24 00:03
这个估计得需要ADO。。。（注意，第一个查询，也就是“时间查询”不能分类汇总，否则ADO自定义查询函数就白 ...

非常感谢，下次注意，呵呵，现在去验证一下，多谢

biddqjh

roych 发表于 2012-9-24 21:32
这里以第一条记录开始，符合5分钟内的算第一条；超过第一条记录5分钟的算新记录，重新计算以新纪录为基准 ...

roych说的非常正确，就是我要表达的意思，下次一定把问题写清楚并附上源文件，再次感谢！！