日付時刻 実行中のマクロを指定の秒数(1/1000)停止Timer関数
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Timer 関数午前 0 時 (真夜中) から経過した秒数を表す単精度浮動小数点数型 (Single) の値を返します。
|
Timer 関数の使用例次の例は、Timer 関数を使って、プログラムの実行を中断します。この例では、DoEvents ステートメントを使って、プログラムが中断している間も他のプロセスを割り込みで処理できます。 |
Sub TimerWait(PauseTime As Double) '************************************ '指定した秒数の間マクロを止める '************************************ Dim Start As Double Start = Timer Do While Timer < Start + PauseTime DoEvents Loop End Sub Private Sub test() Dim PauseTime As Double Dim Start As Double Dim Finish As Double Dim TotalTime As Double PauseTime = 0.1 Start = Timer TimerWait PauseTime Finish = Timer TotalTime = Finish - Start Debug.Print TotalTime ' 0.109000000000378 End Sub |