[解決済み] コード実行時間の測定

質問

テストのために、プロシージャ/関数/命令が終了するまでの時間を知りたいのです。

これは私がやったことですが、私の方法は間違っています。なぜなら、秒の差が0である場合、経過ミリ秒を返すことができないからです。

スリープの値が500msなので、経過秒数が0になると、ミリ秒を返すことができないことに注意してください。

    Dim Execution_Start As System.DateTime = System.DateTime.Now
    Threading.Thread.Sleep(500)

    Dim Execution_End As System.DateTime = System.DateTime.Now
    MsgBox(String.Format("H:{0} M:{1} S:{2} MS:{3}", _
    DateDiff(DateInterval.Hour, Execution_Start, Execution_End), _
    DateDiff(DateInterval.Minute, Execution_Start, Execution_End), _
    DateDiff(DateInterval.Second, Execution_Start, Execution_End), _
    DateDiff(DateInterval.Second, Execution_Start, Execution_End) * 60))

誰か、もっといい方法を教えてください。たぶん TimeSpan ?

解決策です。

Dim Execution_Start As New Stopwatch
Execution_Start.Start()

Threading.Thread.Sleep(500)

MessageBox.Show("H:" & Execution_Start.Elapsed.Hours & vbNewLine & _
       "M:" & Execution_Start.Elapsed.Minutes & vbNewLine & _
       "S:" & Execution_Start.Elapsed.Seconds & vbNewLine & _
       "MS:" & Execution_Start.Elapsed.Milliseconds & vbNewLine, _
       "Code execution time", MessageBoxButtons.OK, MessageBoxIcon.Information)

どのように解決するのですか？

より良い方法としては ストップウォッチ の代わりに DateTime のような違いがあります。

ストップウォッチ クラス - Microsoft Docs

経過時間を正確に測定するために使用できるメソッドとプロパティのセットを提供します。 正確に経過時間を測定するために使用できるメソッドとプロパティのセットを提供します。

// create and start a Stopwatch instance
Stopwatch stopwatch = Stopwatch.StartNew(); 

// replace with your sample code:
System.Threading.Thread.Sleep(500);

stopwatch.Stop();
Console.WriteLine(stopwatch.ElapsedMilliseconds);