想查询某时间段的数据，但是下面这个代码中，开始时间有点问题不知如何更改，求指点

zzq657266102

附件表格里有代码，不知道如何修改。开始时间起不到约束

feilanga

1. Dim 起始日期 As Date
   
2.     Dim 结束日期 As Date
   
3.     If Trim(CStr(Sheet1.Range("J2").Value)) = "" Then
   
4.         起始日期 = CDate("1900-01-01")
   
5.     Else
   
6.         If IsDate(Trim(CStr(Sheet1.Range("J2").Value))) Then
   
7.             起始日期 = CDate(Trim(CStr(Sheet1.Range("J2").Value)))
   
8.         Else
   
9.             MsgBox "输入的起始日期不正确，请认真核对！", 48, "系统提示"
   
10.             Sheet1.Range("J2").Select
    
11.             Exit Sub
    
12.         End If
    
13.     End If
    
14.     If Trim(CStr(Sheet1.Range("K2").Value)) = "" Then
    
15.         结束日期 = CDate("2100-12-31")
    
16.     Else
    
17.         If IsDate(Trim(CStr(Sheet1.Range("K2").Value))) Then
    
18.             结束日期 = CDate(Trim(CStr(Sheet1.Range("B4").Value)))
    
19.         Else
    
20.             MsgBox "输入的结束日期不正确，请认真核对！", 48, "系统提示"
    
21.             Sheet6.Range("K2").Select
    
22.             Exit Sub
    
23.         End If
    
24.     End If
    
25.     If 结束日期 < 起始日期 Then
    
26.         MsgBox "输入的结束日期不能小于开始日期，请认真核对！", 48, "系统提示"
    
27.         Sheet1.Range("K2").Select
    
28.         Exit Sub
    
29.     End If

复制代码

是要问这个吗？开始时间如果不输入，则为默认时间。

fanyoulin

变量写错了吧，看截图，一个是字符，一个是时间，这两个不能比较的啊；

zzq657266102

feilanga 发表于 2023-7-21 15:23
是要问这个吗？开始时间如果不输入，则为默认时间。

谢谢您帮助，但需要的不是这种类型。想要的不仅要和时间比较还要分配到人

zzq657266102

fanyoulin 发表于 2023-7-21 15:28
变量写错了吧，看截图，一个是字符，一个是时间，这两个不能比较的啊；

If wsData.Range("AS" & i).Value >= startTime And wsData.Range("AS" & i).Value <= endTime Then

改成了这个，但是要是查询当天的   比如7/20日开始 和7/20日结束  查询没有结果   

zzq657266102

fanyoulin 发表于 2023-7-21 15:28
变量写错了吧，看截图，一个是字符，一个是时间，这两个不能比较的啊；

知道什么原因了 没写具体的时间 几点几点