以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  纠结的日期类型  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118192)

--  作者:q568514920
--  发布时间:2018/4/26 20:54:00
--  纠结的日期类型
怎么样让一个日期类型和另外一个日期类型对比 例如 2018-10-10 20:20:00  和 2018-10-10 要让他们对比的结果为true
--  作者:有点甜
--  发布时间:2018/4/26 21:04:00
--  
Dim d1 As Date = "2018-10-10 20:20:00 "
Dim d2 As Date = "2018-10-10"
If format(d1,"yyyyMMdd") = format(d2, "yyyyMMdd") Then
    msgbox(123)
End If

--  作者:q568514920
--  发布时间:2018/4/27 17:28:00
--  

例如
Dim dph As DataRow =DataTables("包厢预定表").Find("房态=\'预定\' and 房号ID=\'" & shu(2) & "\' and 预定时间=\'" & Date.Today() & "\' ")   

预定时间是2012-10-10 20:20:10 这个类型 那我应该这么找出 2012-10-10 这个日期的数据

--  作者:q568514920
--  发布时间:2018/4/27 17:29:00
--  
那说的哪种方法是可以 但是我觉得有点复杂 我想要一个更简单的方法图片点击可在新窗口打开查看
--  作者:有点甜
--  发布时间:2018/4/27 18:05:00
--  
Dim dph As DataRow =DataTables("包厢预定表").Find("房态=\'预定\' and 房号ID=\'" & shu(2) & "\' and 预定时间>=#" & Date.Today & "# and 预定时间<#" & Date.Today.AddDays(1) & "#")   
--  作者:q568514920
--  发布时间:2018/4/27 18:19:00
--  
谢谢啊 超级感谢感谢这么久一直帮我解决问题