PGlabo: [VB6.0] 時間計測

« [VB6.0|Oracle] Excelにグラフを表示 | メイン | [VB6.0] 配列のソート »

2005年08月04日

[VB6.0] 時間計測

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Dim StartTime As Long
Dim EndTime As Long
Dim JobTime As Long
StartTime = timeGetTime

[処理]

EndTime = timeGetTime

JobTime = (EndTime - StartTime)

JobTime = Format(JobTime, "0.000")

MsgBox JobTime & "秒"

2005 / 08 / 04