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

関連記事

: フォントサイズ（Size プロパティ・StandardFontSize プロパティ）

フォントサイズを取得・設定する（Size プロパティ） Size プロパティは、 …

: エラー（CVErr 関数・IsError 関数・Error 関数）

CVErr 関数（エラー番号をエラー値に変換する）の使い方【書式】 retur …

: テキストファイル（UTF-8）を読み込み、書き出し（ADODB.Stream）

Stream オブジェクト ADO（ActiveX Database Objec …

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

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

: 変数のデータ型・宣言（Dim ステートメント）

変数の宣言一般的な方法【書式】 Dim varname [ As type, …

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

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

: 画面の更新を停止（ScreenUpdating プロパティ）

画面の更新を停止マクロを実行すると、画面が更新されます。これにより、実行速度が …

: 変数が配列かどうかをチェックする（ IsArray 関数）

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

: フォントの設定（Font プロパティ）

フォントの設定（Font プロパティ）指定されたオブジェクトのフォント情報（F …

: 文字列：指定した文字の文字コードを取得する（Asc 関数）

Asc 関数【書式】 result = Asc ( string ) 引数・戻 …

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