如果说我要在某段时间到某段时间，例如：19：01-19：02我有两个文本框供用户输入时间段，然后有一个按钮，按下按钮执行某操作，应该怎么云写这段时间，

怎么用代码呢

Private Sub Command1_Click()
Text1 = Replace(Text1, "：", ":")
Text2 = Replace(Text2, "：", ":")
MsgBox Now > CDate(Date & " " & Text1) And Now < CDate(Date & " " & Text2)




If CDate(Date & " 9:06") And Now < CDate(Date & " 9:07") Then
Timer1.Interval = 1000
End If
end sub
 这样可以吗

我知道了，
用下面的代码就可以了，
Private Sub Command1_Click()
Text1 = Replace(Text1, "：", ":")
Text2 = Replace(Text2, "：", ":")


If Text1 > (Date & " 9:06") And Text2 < CDate(Date & " 9:07") Then


Timer1.Interval = 1000
End If


End Sub