как засечь время

[Dmitriy Solomnikov]

мне надо засечь сколько времени выполняется определенная процедура. Как это можно сделать?

[Sebas]

enddate.Substract(Begindate).Totalseconds

[Создатель]

Код: Выделить всё

dim answer as long
Dim StartTime As New DateTime()
Dim EndTime As New DateTime()

StartTime =DateTime.Now()

сама процедура

EndTime =DateTime.Now

'кол-во 100 наносекундных интервалов
answer1 =EndTime.Ticks()-StartTime.Ticks()


[Создатель]

На всякий случай:
1 наносекунда = 1/1 000 000 000 секунды.