BFLGetTickHourCount () As Long
BFLGetTickMinuteCount () As Long
BFLGetTickSecondCount () As Long
BFLGetTickMilliSecondCount () As Long

概要

Windows起動後の経過時間を各単位ごとに取得します。これらの関数を利用するよりBFLGetTickCountEx方がまとめて取得できるので実用的です。

この関数は正常に取得した場合に0を返します。

VBでの宣言

[Public | Private] Declare Function BFLGetTickHourCount Lib "BFL.dll" () As Long
[Public | Private] Declare Function BFLGetTickMinuteCount Lib "BFL.dll" () As Long
[Public | Private] Declare Function BFLGetTickSecondCount Lib "BFL.dll" () As Long
[Public | Private] Declare Function BFLGetTickMilliSecondCount Lib "BFL.dll" () As Long

VBでの使用例

Dim tcex As TICKCOUNTEX
Dim ret As Long

ret = BFLGetTickCountEx(tcex)

If ret = 0 then
    With tcex
    Debug.Print "Windows起動後の経過時間：" & Format(.BFLGetTickHourCount , "00") & "時間" & _
    Format(.BFLGetTickMinuteCount , "00") & "分" & Format(.BFLGetTickSecondCount , "00")  & "秒"
    End With
End If

戻る