主题：时间比较问题

时间比较

 

时间列 为 time

 

如

休息时间

10：00：00  

10：30：00

    Dim nw As Date = Format(Date.Now,"hh:mm:ss")
    Dim nw1 As Date = Format(Date.Now.AddMinutes(1),"hh:mm:ss")
    Dim dr As DataRow = DataTables("休息时间表").Find("休息时间 >=  #" & nw & "# and 休息时间 <  #" & nw1 & "#")
   

当前时间为 10：00：13

 

但结果 是找不到，请问 错误在哪里？

 

    If dr IsNot Nothing Then

    MessageBox.Show(1)

    else

    MessageBox.Show(2)

    end if

 

MessageBox.Show(2)

 

 

肯定是时间在间隔范围内，但日期不同，要确定休息时间输入时的日期

    Dim nw As Date = Format(Date.Now,"1900-1-1 hh:mm:ss")
    Dim nw1 As Date = Format(Date.Now.AddMinutes(1),"1900-1-1 hh:mm:ss")
    Dim dr As DataRow = DataTables("休息时间表").Find("休息时间 >=  #" & nw & "# and 休息时间 <  #" & nw1 & "#")

老师， 按照你的方法 ， 

 

我把时间调到

 

当前时间为 10：00：13

 

dr 找出来的 结果 还是 nothing

 

求指导。

3楼的方法测试

好了，我自己搞错了，谢谢

我这样测试，没问题

 

Dim nw As Date = Format(Date.Now,"1900-1-1 HH:mm:ss")
Dim nw1 As Date = Format(Date.Now.AddMinutes(1),"1900-1-1 HH:mm:ss")
Dim dr As DataRow = DataTables("表A").Find("第四列 >=  #" & nw & "# and 第四列 <  #" & nw1 & "#")
msgbox("第四列 >=  #" & nw & "# and 第四列 <  #" & nw1 & "#")
msgbox(dr Is Nothing)

 

hh要用大写的HH，看7楼