Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

日付時刻：経過時間を取得（ Timer 関数）

2015/04/21

Timer 関数の使い方

【書式】

result = Timer ()

【戻り値】

result ・・・当日午前 0 時から経過した秒数を表す単精度浮動小数点数型（Single）の値。

Timer 関数は、処理中に午前０時を超えた場合、値を「１日の総秒数を反転した値（-86,400 秒）」にリセットし、そこから経過秒数を加算していきます。さらに１日が経過し翌日の午前０時になると「 0 秒」となるので、日付をまたぐ場合は注意が必要です。
【対応策】
１．経過時間の差分の値の絶対値を Abs 関数等で算出して、その値で経過秒数を判定する。
２．「【参考】サンプルVBAソース２」のように、Timar 関数を使用しない。

Timer 関数の使用例

サンプルVBAソース

　
Sub Sample_Timer()

    Dim StartTime
    Dim EndTime

    StartTime = Timer
    EndTime = 20
    
    With Sheets("Sheet1")
        
        .Cells(1, 1).Value = ""
    
        Do Until .Cells(1, 1).Value = 20
            .Cells(1, 1).Value = Int(Timer - StartTime)
            DoEvents
        Loop
    
    End With

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

　

Sub Sample_Timer()

Dim StartTime

Dim EndTime

StartTime = Timer

EndTime = 20

With Sheets("Sheet1")

.Cells(1, 1).Value = ""

Do Until .Cells(1, 1).Value = 20

.Cells(1, 1).Value = Int(Timer - StartTime)

DoEvents

Loop

End With

End Sub

　

実行結果

DoEvents 関数について
上記マクロ内には DoEvents というのがありますが、この「DoEvents関数」を使用することで、一時的に、他のアプリケーションが実行できるように Windows に制御を移すことが可能になります。
つまり、マクロを実行後、VBE 画面からマクロを停止することが可能になります。

【参考】サンプルVBAソース２

　
Sub Sample_Test()

    Dim StartTime
    Dim EndTime
    
    StartTime = Now
    EndTime = 20
    
    Cells(1, 1).Value = ""
    
    Do Until Cells(1, 1).Value = EndTime
    
        Cells(1, 1).Value = Int(DateDiff("s", StartTime, Now))
        DoEvents
    
    Loop

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

　

Sub Sample_Test()

Dim StartTime

Dim EndTime

StartTime = Now

EndTime = 20

Cells(1, 1).Value = ""

Do Until Cells(1, 1).Value = EndTime

Cells(1, 1).Value = Int(DateDiff("s", StartTime, Now))

DoEvents

Loop

End Sub

　

- VBA基本 timer 関数, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 対象のオブジェクトをクリアする（Clear メソッド）

Clear メソッド対象となるオブジェクト全体をクリアします。Range オブ …

: VBA で正規表現を使う（RegExp オブジェクトのプロパティ）

RegExp オブジェクトのプロパティ RegExp オブジェクトの詳細に関して …

: 配列（宣言・要素数の変更について）

配列の宣言【書式】※ 配列の宣言＜Type 型の静的配列（固定長配列）の宣言 …

: 色の設定（ColorIndex プロパティ・Colors プロパティ）

ColorIndex プロパティ ColorIndex プロパティは、指定したオ …

: 日付時刻：日付・時刻の間隔を取得（ DateDiff 関数）

DateDiff 関数の使い方【書式】 result = DateDiff ( …

: Math 関数（ Abs,Atn,Cos,Exp,Log,Rnd,Sgn,Sin,Sqr,Tan ）

Abs 関数【書式】 value = Abs ( number ) 【引数・戻 …

: 変数がNull 値かどうかをチェックする（ IsNull 関数）

IsNull 関数の使い方【書式】 result = IsNull ( exp …

: 文字列：文字列の指定した位置から指定文字数取得（Mid 関数,MidB 関数）

Mid 関数・MidB 関数の使い方【書式】 result_mid = Mi …

: データをクリアする（ClearContents メソッド）

ClearContents メソッド対象がセル範囲（Range オブジェクト） …

: VBA の演算子（演算子の優先順位）

演算子の優先順位演算子の優先順位とは、１つの式の中に演算子が複数ある場合、どの …

PREV: 日付時刻：日付・時刻の間隔を取得（ DateDiff 関数）
NEXT: 書式を変換（Format 関数）