Dim Dtime As Date
Dtime = DateAdd("s", Interval2, Now)
''''延时Interval1 s
Do While Dtime > Now
DoEvents
Loop
sleep 是中断程序,不接收任何事件。
Dim Dtime As Date
Dtime = DateAdd("s", Interval2, Now)
''''延时Interval1 s
Do While Dtime > Now
DoEvents
Loop
sleep 是中断程序,不接收任何事件。