[ホーム] - [Windows 10 FAQ 一覧] - [Excel で経過した秒数を計測するVBAのサンプルコード]



作成日：2018/02/10
更新日：2018/03/28
対象：Windows 10

Excel で経過した秒数を計測するVBAのサンプルコード




【目次】


秒数を測る


Excel VBAである時点からある時点まで経過した秒数を計測するサンプルコードを紹介します。

Timer 関数で当日の午前 0 時から経過した秒数を単精度浮動小数点で取得することが可能です。
よって計測したい各ポイントで Timerで取得しておき後で差分を出せばよいことになります。

(注意) ただし日をまたがる方法では失敗するので注意してください。

以下のサンプルでは 100000までのループ処理を実行しますが、その処理にかかる時間を計測しています。 



MsgBox "開始"

StartTime = Timer

For i = 0 To 100000

    DoEvents

Next



EndingTime = Timer

MsgBox (EndingTime - StartTime) & "秒経過しました。"






(ご注意) 本サイト内の内容を使用して発生したいかなる時間的損害、金銭的損害あるいはいかなる損害に対して、いかなる人物も一切の責任を負いません。あくまでも個人の判断で使用してください。 本ページは独自に調査をしたアンオフィシャル(非公式)な内容です。内容に誤りがある可能性や仕様変更により内容が不正確になる可能性があります。 本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。 このページはリンクフリーです。(このページへの直接リンクも可能です。)


Copyright(c) TOOLJP.COM 1999-2024

[Windows 10 FAQ 一覧に戻る]