循环N次所需的时间.vbs
'下面的例子使用 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
页:
[1]