ҹ 12 ʱԺѾȥ

Timer
˵
ʹ Timer ȷ For...Next ѭ N ʱ䣺 

Function TimeIt(N)
   Dim StartTime, EndTime
   StartTime = Timer
   For I = 1 To N
   Next
   EndTime = Timer
   TimeIt = EndTime - StartTime
End Function
Ҫ
汾 5
