订正:
'Timer1.Interval = 10000 也没关系,仅仅会造成几秒钟的误差
Private Sub Timer1_Timer()
Static Executed As Boolean
If Executed And Time < "07:00:00" Then
Executed = False
ElseIf Not Executed And Time >= "07:00:00" Then
MsgBox "起床啦!" '你自己改成你的要求
Executed = True '此句忘了
End If
End Sub
'Timer1.Interval = 10000 也没关系,仅仅会造成几秒钟的误差
Private Sub Timer1_Timer()
Static Executed As Boolean
If Executed And Time < "07:00:00" Then
Executed = False
ElseIf Not Executed And Time >= "07:00:00" Then
MsgBox "起床啦!" '你自己改成你的要求
End If
End Sub