WaitTimeFor

Summary

指定した秒数の間、処理を待機させるための関数です。

Function WaitTimeFor(WaitSecounds As Single)
'指定の秒数の間、処理を待機させる

Dim StartTime As String
    StartTime = Timer

    Do While Timer < StartTime + WaitSecounds
        DoEvents
    Loop
End Function

説明

この関数は、指定した秒数の間、処理を待機させるための処理を行います。

具体的な動作は以下の通りです：

StartTime 変数に現在のタイマー値を代入し、待機時間の開始時刻を記録します。 Do While Timer < StartTime + WaitSeconds により、待機時間が経過するまで繰り返し処理を行います。 DoEvents を使用して、他のイベントや処理を実行させます。 待機時間が経過した場合、繰り返し処理を終了します。

引数

• WaitSeconds : Single型 待機させる秒数を指定します。

戻り値

• なし

Examples

この関数を使用することで、指定した秒数の間、処理の待機を行うことができます。

'2秒待機
WaitTimeFor(2)