以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  时间比较问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73384)
--  作者：ljh29206
--  发布时间：2015/8/18 15:34:00
--  时间比较问题

时间比较

 

时间列 为 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)

 

 
--  作者：有点蓝
--  发布时间：2015/8/18 16:05:00
--  
肯定是时间在间隔范围内，但日期不同，要确定休息时间输入时的日期
--  作者：大红袍
--  发布时间：2015/8/18 16:07:00
--  
    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 & "#")
--  作者：ljh29206
--  发布时间：2015/8/18 16:20:00
--  

老师， 按照你的方法 ， 

 

我把时间调到

 

当前时间为 10：00：13

 

dr 找出来的 结果 还是 nothing

 

求指导。
--  作者：有点蓝
--  发布时间：2015/8/18 16:23:00
--  
3楼的方法测试
--  作者：ljh29206
--  发布时间：2015/8/18 16:27:00
--  
好了，我自己搞错了，谢谢
--  作者：大红袍
--  发布时间：2015/8/18 16:27:00
--  

我这样测试，没问题

 

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)
--  作者：大红袍
--  发布时间：2015/8/18 16:28:00
--  
以下是引用ljh29206在2015/8/18 16:27:00的发言：
好了，我自己搞错了，谢谢

 

hh要用大写的HH，看7楼