VBAのIE制御

Timer関数は、VBA関数の中で日付・時刻関数に分類される関数です。

目次

• Timer関数とは
• Timer関数のサンプルコード
  • 実行結果
  • 解説

Timer関数とは

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

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

Timer関数のサンプルコード

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

Sub sample()

 Dim PauseTime, Start, Finish, TotalTime
 If (MsgBox("[はい] をクリックすると、ﾌﾟﾛｸﾞﾗﾑの実行が 5 秒間中断されます。", 4)) = vbYes Then
     PauseTime = 5                ' 中断時間を設定します。
     Start = Timer                ' 中断の開始時刻を設定します。
     Do While Timer < Start + PauseTime
         DoEvents                ' 他のプロセスに制御を渡します。
     Loop
     Finish = Timer                ' 中断の終了時刻を設定します。
     TotalTime = Finish - Start    ' 実際の中断時間を計算します。
     MsgBox "実行を " & TotalTime & " 秒間中断しました。"
 Else
     End
 End If

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

解説

日付・時刻関数一覧