Timer関数

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

目次

スポンサー リンク

Timer関数とは

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

構文Timer

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

実行結果

解説

日付・時刻関数一覧

関数名内容
Date現在のシステム日付を算出します。
DateAdd指定した期間を加えた値を算出します。
DateDiff指定した時間単位で、2つの日付の差を算出します。
DatePart日付の指定した部分を算出します。
DateSerial指定した年月日に対応するバリアント型の値を算出します。
DateValue日付を表すバリアント型の値を算出します。
Day指定した日付から、日を表す1~31までの値を算出します。
Hour指定した時刻から、時間を表す0~23の値を算出します。
Minute指定した時刻から、分を表す0~59の値を算出します。
Month指定した日付から、月を表す1~12までの値を算出します。
Now現在のシステム日付と時刻を算出します。
Second指定した時刻から、秒を表す0~59の値を算出します。
Time現在のシステム時刻を算出します。
Timer午前0時から経過した秒数を算出します。
TimeSerial指定した時分秒をバリアント型の値で算出します。
TimeValue時刻をバリアント型の値で取得します。
Weekday指定した日付の曜日を算出します。
Year指定した日付の年を算出します。
ExcelのVBAについてのQ&A掲示板

↑ExcelのVBA全般について分からない事があればこちらの掲示板よりご質問ください^^

VBAのInternetExplorer操作入門

↑ExcelのVBAをマスターできたら、エクセルVBAのIE(InternetExplorer)操作にも挑戦してみてください^^

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

エクセルVBAのステートメント

こちらでは、エクセルVBAの事例で利用したステートメントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

スポンサー リンク

エクセルVBAのオブジェクト

こちらでは、エクセルVBAの事例で利用したオブジェクトをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

スポンサー リンク

エクセルVBAのプロパティ

こちらでは、エクセルVBAの事例で利用したオブジェクトのプロパティをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのメソッド

こちらでは、エクセルVBAの事例で利用したオブジェクトのメソッドをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのイベント

こちらでは、エクセルVBAの事例で利用したオブジェクトのイベントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。