処理時間＆CSVファイル出力について

質問

プログラムで処理１～３までの流れがある場合に、処理１～処理３それぞれの処理時間（秒）を求めたいです。
＜例＞
処理１
処理２
処理３

処理１の前の現在時刻を求めておき、処理２に入ったときの現在時刻から処理１の前の現在時刻を引けば処理時間（秒）求めることができると思うのですが、プログラムでどのように実装すればよいかわかりません。

現在時刻を求めるプログラムは、

Public Function GetTimeLong() As Long
'処理時間
Dim stTime As SYSTEMTIME
'初期化
GetTimeLong = 0
InitSystemTime stTime
'取得して変換
If GetTime(stTime) = True Then
GetTimeLong = stTime.wMilliseconds ' ミリ秒
GetTimeLong = GetTimeLong + stTime.wSecond * 1000& ' 秒
GetTimeLong = GetTimeLong + stTime.wMinute * 1000& * 60& '分
End If
End Function

で求めることができると思います。

また、処理１～３までの得られた処理時間を、

処理１　処理２　処理３
○秒　　○秒　　○秒

とＣＳＶ形式ファイルで保存したい場合、どのようなプログラムを書けば実装できるのでしょうか？

どなたかご教授をして頂ければ助かります。
よろしくお願い致します。

回答No.1

noname#60992 · ベストアンサー

処理数が少ないなら、
ELTime0 = GetTimeLong()
処理１
ELTime1 = GetTimeLong()
処理２
ELTime2 = GetTimeLong()
処理３
ELTime3 = GetTimeLong()
のような形で必要データをそろえて計算してからＣＳＶに書き出すことになると思います。

ＣＳＶの書き出しについては、検索するとたくさん出てきます。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_040.html​
http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/as_k03.htm
などなど

処理がいっぱいあって、書き出しながら処理を行いたいと考えているのなら、
処理１　処理２　処理３
○秒　　○秒　　○秒
のように書き出すのはあまり論理的ではありません。
処理１　○秒　
処理２　○秒
処理３　○秒
・・・・
としたほうがよいでしょう。　また、書き出すのにも時間がかかりますので、
処理ごとに書き出すなら、毎回処理前に時間を取り直す必要があります。

お礼

質問に対し、ご回答頂きありがとうございます。

おかげ様で、処理時間の取得とCSVファイルでの出力をすることができました。

ありがとうございました。また、機会がありましたらよろしくお願い致します。