BFLGetTickCountEx (ByRef tcex As TICKCOUNTEX) As Long

概要

Windows起動後の経過時間を単位ごとに取得します。例えばWindows起動後2時間31分57.3秒経過した場合、Hourが2、Minuteが31、Secondが57、MilliSecond が300となります。また、Standard はWindows APIのGetTickCountと同じ値を返します。例えば、この場合、7348300を返します。それぞれの単位を取得する関数もありますが、こちらの方が実用的です。

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

VBでの宣言

[Public | Private] Declare Function BFLGetTickCountEx Lib "BFL.dll" (ByRef tcex As TICKCOUNTEX) As Long

' TICKCOUNTEX構造体

[Public | Private] Type TICKCOUNTEX
    Hour As Long    ' 時
    Minute As Long   ' 分
    Second As Long   ' 秒
    MilliSecond As Long   ' ミリ秒
    Standard As Long   ' GetTickCountと同値
End Type

VBでの使用例

Dim tcex As TICKCOUNTEX
Dim ret As Long

ret = BFLGetTickCountEx(tcex)

If ret = 0 then
    With tcex
    Debug.Print "Windows起動後の経過時間：" & Format(.Hour, "00") & ":" & _
    Format(.Minute, "00") & ":" & Format(.Second, "00") & "(" & _
    Format(.Standard, "000") & "ミリ秒)"
    End With
End If

戻る