以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何判断一个日期在某一个时间段内呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119124)

--  作者:pizzahe
--  发布时间:2018/5/18 10:13:00
--  如何判断一个日期在某一个时间段内呢?
例如,时间段:2018-5-16 至 2018-8-15
如何判断2018-6-12 在该时间段内呢?
[此贴子已经被作者于2018/5/18 10:13:51编辑过]

--  作者:有点甜
--  发布时间:2018/5/18 10:18:00
--  
Dim d1 As Date = "2018-5-16"
Dim d2 As Date = "2018-8-15"
Dim d As Date = "2018-6-12"
If d >= d1 AndAlso d <= d2 Then
    msgbox("包含")
Else
    msgbox("不包含")
End If