在表格中查询时间点的数据并输出。

719404338

前几天发一个贴子，表达不清楚。今天修改一下，需求如下：如果现在的时间是9月18日中午11：30分，我要在表格中查询9月18日11点、10点、8点的数据和9朋17日11点、10点、8点的数据，上次是用的ceiling工作表函数向上取整，或者floor工作表函数向下取整，有时能查询到到有时不能查询到。换成split用“：”分割成“2018-9-18 11”，有时能查询，有时不能查询。（特别是上午9：00---10：00段不能查询。）现在换成装入字典能查询，语句复杂了一点。还是很纠结select case不能查询这个问题，谢谢朋友们。
我把附件里的文件修改了，大家帮忙看看，把电脑的时间改成9：00-10：00运行，t3,\t6找不到，确实很诡异。困扰我很多天了。

蓝桥玄霜

请见代码。

1. Sub scada()
   
2. Dim arr, i%, h%, r, rq, sj, t1, t2, t3, t4, t5, t6
   
3. arr = [b2:d65]
   
4. h = Hour(Now)
   
5. r = Date
   
6. For i = 1 To UBound(arr)
   
7.     rq = CDate(Split(arr(i, 1))(0)): sj = Hour(arr(i, 1))
   
8.     If rq = r Then
   
9.          Select Case sj
   
10.             Case h
    
11.                 t1 = arr(i, 2)
    
12.             Case h - 1
    
13.                 t2 = arr(i, 2)
    
14.             Case 8
    
15.                 t3 = arr(i, 2)
    
16.           End Select
    
17.     ElseIf rq = r - 1 Then
    
18.          Select Case sj
    
19.             Case h
    
20.                 t4 = arr(i, 2)
    
21.             Case h - 1
    
22.                 t5 = arr(i, 2)
    
23.             Case 8
    
24.                 t6 = arr(i, 2)
    
25.           End Select
    
26.     End If
    
27. Next
    
28. If t1 <> "" Then
    
29.     MsgBox "此时进站压力：" & t1 & " 1小时前进站压力：" & t2 & " 今天8点进站压力：" & t3 & Chr(13) & "昨天此时进站压力：" & t4 & " 昨天前1小时前进站压力：" & t5 & " 昨天8点进站压力：" & t6
    
30. End If
    
31. End Sub
    
32. 
    

复制代码

719404338

蓝桥玄霜 发表于 2018-9-18 14:12
请见代码。

谢谢版主。

719404338

蓝桥玄霜 发表于 2018-9-18 14:12
请见代码。

版主，昨天上午9点多试了您的代码正常，今天9点多t3、t6不能查找，求指导。谢谢。

蓝桥玄霜

删除stop试试看。

719404338

蓝桥玄霜 发表于 2018-9-21 09:20
删除stop试试看。

不能查询，这是不是微软的BUG？

zpy2

719404338 发表于 2018-9-22 07:33
不能查询，这是不是微软的BUG？

建议日期一致保存为文本(日期是长整)，然后可以正则过滤。感觉有可能 数据类型不一致造成的。

719404338

zpy2 发表于 2018-9-22 09:20
建议日期一致保存为文本(日期是长整)，然后可以正则过滤。感觉有可能 数据类型不一致造成的。

谢谢网友回贴。目前只有9：00-9：59不能查询，其它时间正常。应该不是这个原因，装入字典查询正常，就是用select case 在9点时间段不行。