プログラムを一定時間とめるコードの際に２４時をまたぐととまらないようにするには？

質問

お世話になります。
以下のコードだと２４時をまたぐ際に
プログラム自体が停止してしまうんでうバグがあるんですよね。ちょっと解決方法がおもいつかないので
詳しい方教えて下さい。よろしくお願いします。

st = Timer
　　Do While Timer - st < 3
　　　　DoEvents
　　Loop

回答No.1

BLUEPIXY · ベストアンサー

st = Timer
Do
past = Timer - st
If past < 0 Then past = past + 24 * 3600
DoEvents
Loop While past < 3