循环N次所需的时间.vbs

diddom

'下面的例子使用 Timer 函数来确定 For...Next 循环 N 次所需的时间

Dim Timmer
   
   MsgBox TimeIt(1000000)
   'MsgBox "5秒"
   'Delay(50000)

Function TimeIt(N)  
   Dim StartTime, EndTime

   StartTime = Timer

   For I = 1 To N
        EndTime = Timer
        TimeIt = EndTime - StartTime
   Next
End Function


Function Delay(N)  
Dim Tmp, StartTime, EndTime  

   StartTime = Timer  

   For I = 1 To 1000000  
          EndTime = Timer  
        Tmp = EndTime - StartTime
        If Tmp > N or Tmp =N then Exit Function       
   Next

End Function