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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 色の設定（ThemeColor プロパティ・TintAndShade プロパティ）

ThemeColor プロパティ・TintAndShade プロパティテーマカ …

: 配列（多次元配列・配列の次元の変更）

多次元配列【書式】　多次元配列の宣言＜静的配列（固定長配列）＞ Dim my …

: データ型を調べて、そのデータ型を示す数値を返す（VarType 関数）

VarType 関数の使い方 VarType 関数は、引数に、データ型を調べた …

: ユーザー定義関数：自動再計算関数の設定（Volatile メソッド）

ユーザー定義関数で、自動再計算を行うかどうかを設定するワークシート上で使用する …

: コレクション（Collection）オブジェクト「連想配列」

コレクション（Collection）オブジェクトの使い方【書式】 Dim my …

: 文字列：指定した数の空白（スペース）からなる文字列を返す（Space 関数）

Space 関数【書式】 result = Space ( number ) …

: VBA で正規表現を使う（RegExp オブジェクトのメソッド）

RegExp オブジェクトのメソッド RegExp オブジェクトの詳細に関しては …

: 指定した数のスペースを挿入する（Spc 関数）

指定した数のスペースを挿入指定した数のスペースを挿入するには、Spc 関数を使 …

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

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

: RGB 値一覧表（XlRgbColor 列挙型）

RGB 値（XlRgbColor 列挙型）一覧表 RGB 関数を使用して、出力さ …

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