Question

VB中如何实现一段时间内如果过条件满足则执行一段代码，如果时间到条件仍不满足则继续执行后面的代码。

Answer 1

病情分析：
根据所述情况初步分析，需要进一步查明原因。
指导意见：
孩子年龄较小，出现体温异常，一般考虑属于上感早期症状，如果单纯的体温升高，超过38.5可以喂服美林或泰诺林口服退热，目前37.5可以给予温水浴物理降温。如果伴有咳嗽、鼻塞、流涕等症状，需要对症治疗。必要时建议正规医院专科就诊。

病情分析：
你好，你孩子的情况考虑是由于感冒或者上呼吸道感染引起的发热！
指导意见：
建议服用小快克或者好娃娃感冒颗粒，注意休息和保暖！多饮水！可以使用湿毛巾擦拭身体退热。如果体温上升可以服用布洛芬混悬液治疗！

Answer 2

用Timer控件，Interval可以设置为1000：

Private Sub Timer1_Timer()
If Hour(Now) >= 10 And Hour(Now) <= 12 Then
'10点到12点需要执行的指令
ElseIf Hour(Now) = 19 Then
'19点需要执行的指令
End If
End Sub