ホーム > カテゴリ > Visual Basic >

処理時間を計測する

処理時間を計測するサンプルです。

サンプルの実行画面

ソースコード

[timeGetTime.frm]

'timeGetTime =>システムが起動してからの時間を取得する
'<引数>
'なし

'@戻り値@
'ミリ秒

Private Declare Function timeGetTime Lib "winmm.dll" () As Long


Private Sub Command1_Click()


 MousePointer = 11


  nStart = timeGetTime()

  '空ループ
  For i = 0 To 10000000
  Next

  nEnd = timeGetTime

  '処理結果を出力する
  MsgBox (CDbl(nEnd) - CDbl(nStart)) / 1000 & "秒かかりました。"

 MousePointer = 0

End Sub

ソースコード一式のダウンロード

vbapi_timegettime.zip 842 バイト (842 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





関連記事



公開日:2015年03月05日
記事NO:00410