请问如何用VB判断系统时间是否在9:30到11:30 或 13:00 到15:00 之间？

Question

请问如何用VB判断系统时间是否在9:30到11:30 或 13:00 到15:00 之间？
最好还要同时符合在周一到周五的要求~~谢谢就是判断系统时间是否处于股市开市时间。

Answer 1

    Dim dt As Date
    dt = Now
    If Weekday(dt, vbMonday) >= 1 And Weekday(dt, vbMonday) <= 5 Then
        s = Format(dt, "hh:mm")
        If (s >= "09:30" And s <= "11:30") Or (s >= "13:00" And s <= "15:00") Then
            MsgBox "在规定的时间内"
        End If
    End If

Answer 2

Private Sub Command1_Click()
    Dim datNow As Date
    Dim dat0930 As Date
    Dim dat1130 As Date
    Dim dat1300 As Date
    Dim dat1500 As Date
    
    datNow = Format(Now, "yyyy-mm-dd hh:mm:ss")
    dat0930 = Format(Now, "yyyy-mm-dd") & " 09:30"
    dat1130 = Format(Now, "yyyy-mm-dd") & " 11:30"
    dat1300 = Format(Now, "yyyy-mm-dd") & " 13:00"
    dat1500 = Format(Now, "yyyy-mm-dd") & " 15:00"
    
    If ((dat0930 <= datNow And datNow <= dat1130) Or (dat1300 <= datNow And datNow <= dat1500)) And (Weekday(Now) >= 2 And Weekday(Now) <= 6) Then
        MsgBox "ok"
    End If
    
End Sub

Answer 3

Option ExplicitPrivate Sub Command1_Click()
    If (Time > "09:30:00" And Time < "11:30:00") Or (Time > "13:00:00" And Time < "15:00:00") Then
        Debug.Print "股市交易时间"
    End If
End Sub

Answer 4

"从字符串“2011-55-28 02:55:59”到类型“Date”的转换无效。"
   datNow = Format(Now, "yyyy-mm-dd hh:mm:ss")  无法转换成date

Answer 5

我试过了，
        Dim s As Date
        Dim dt As Date
        dt = Now
        If Weekday(dt, vbMonday) >= 1 And Weekday(dt, vbMonday) <= 5 Then
            s = Format(dt, "hh:mm")
            If (s >= "09:30" And s <= "11:30") Or (s >= "13:00" And s <= "15:00") Then
                MsgBox("在规定的时间内")
            Else
                MsgBox("不在规定的时间内")
            End If
        Else
            MsgBox("不在规定的时间内2")
        End If
        MsgBox("啊啊")
    End Sub
系统时间为10点50时，显示“在规定时间内”
系统时间超过11:30后（如14:00），则不弹出任何MsgBox，很怪，照道理按这个框架总会弹出一个的是不是我变量S类型申明错了？我string和date都试过了

Answer 6

研究过了 ，      s = Format(dt, "hh:mm")
出来的s是12小时制的
所以我改用了s = Format(dt, "short time")
谢谢
调试了一下，弹出msgbox框了
但是
只要时间超过11:30就