اريد كود يقوم بحساب الوقت الذي تستغرقه دالة

منقول من الاستاذ تركى العسيرى من منتدى Dev4arabs

****************************************************

شكرا للتفويض Delegate! الدالة التالية تحسب وقت تنفيذ اجراء مرسل لها

Delegate Sub dlgTimeIt()

Function TimeIt(ByVal [sub] As dlgTimeIt) As TimeSpan
      ' البداية
      Dim start As Date = Now

      ' تنفيذ الاجراء
      [sub].Invoke()

      ' العودة بالوقت
      Return Now.Subtract(start)
End Function

مثال لاستخدامها :

Sub Test()
      Dim counter As Long

      For counter = 0 To 100000000

      Next
End Sub

Sub Main()
      Dim t As TimeSpan

      t = TimeIt(AddressOf Test)

      Console.WriteLine(t)

End Sub

رابط الكود لا يعمل و الا لكنت وضعته

نسيت ان اقول فى المرة القادمة ساغلق المشاركة لان العنوان لا يدل على مضمونها

السلام عليكم

هناك طريقة أخري

dim start,end,time as int32

start = My.Computer.Clock.TickCount

For counter = 0 To 100000000

Next

end = My.Computer.Clock.TickCount

time = end - start ms

الكلاس My خاص بإصدارة 2005

شكرا لكم

و جزاكم الله خيرا