日付時刻 実行中のマクロを指定の秒数(1/1000)停止Timer関数

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

Timer 関数

午前 0 時 (真夜中) から経過した秒数を表す単精度浮動小数点数型 (Single) の値を返します。

  • 構文
  • Timer
  • 解説
  • Microsoft Windows では、Timer 関数は小数点以下の値も返します。Macintosh では、小数点以下の値は返されません。

Timer 関数の使用例

次の例は、Timer 関数を使って、プログラムの実行を中断します。この例では、DoEvents ステートメントを使って、プログラムが中断している間も他のプロセスを割り込みで処理できます。
Option Explicit

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

 

 

 

2000年01月01日|[VBサンプルコード]:[日付時刻]