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

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][日付時刻 実行中のマクロを指定の秒数(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

類似

実行中のマクロを指定の時刻まで停止WaitメソッドTimeValue関数





Production Japan Import Application. Since 1998