処理時間を計測する

Public Class ProcessingTimeForm

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        '処理開始時刻を記憶
        Dim start As DateTime = Now

        Dim x As Integer
        For i As Integer = 0 To 10000
            x += i
            System.Threading.Thread.Sleep(1)
        Next

        '処理時間を計算（現在時刻－処理開始時刻）
        Dim span As TimeSpan = Now - start

        MessageBox.Show(String.Format("処理時間は{0}秒です。", span.TotalSeconds))

    End Sub
End Class

ツイート