７８．処理時間を計測する

＜　使用用途　＞
処理時間を計測する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のtimeGetTime を使用します
timeGetTime　＝＞システムが起動してからの起動時間を取得する
　　＜引数＞
　　　　なし
　　＠戻り値＠
　　　　ミリ秒　　　 　　　

<　ＳＡＭＰＬＥ　＞
'標準モジュール
Public Declare Function timeGetTime Lib "winmm.dll" () As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()

　nStart = timeGetTime()

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

　nEnd = timeGetTime

　'処理結果を出力する
　Label1.Caption = (CDbl(nEnd) - CDbl(nStart)) / 1000 & "秒"

End Sub