请教个时间控制的问题 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 请教个时间控制的问题

标题：请教个时间控制的问题

取消只看楼主

a414715440

等　级：论坛游民
帖　子：37
专家分：26
注　册：2011-8-28
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：2

请教个时间控制的问题

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

怎么用代码呢

搜索更多相关主题的帖子: 时间段　文本框　用户　

2011-09-07 19:08

a414715440

等　级：论坛游民
帖　子：37
专家分：26
注　册：2011-8-28

第 2 楼

得分:0

回复 2楼创造奇迹

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
这样可以吗

2011-09-08 09:09

a414715440

等　级：论坛游民
帖　子：37
专家分：26
注　册：2011-8-28

第 3 楼

得分:0

回复 2楼创造奇迹

我知道了，
用下面的代码就可以了，
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

2011-09-08 09:29

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-349397-1-1.html