VBScript (ASP) computing program running time, accurate to milliseconds

 

Let the server execute 0.5 million addition (Integer Operation) and 0.2 million open side (floating point operation) to record the time used. < BR />
< %
Dim I, T1, T2, tempvalue, runtime1, runtime2
' Start to calculate the time required for the first addition
T1 = Timer ()
For I = 1   To   500000
Tempvalue =   1   +   1
Next
T2 = Timer ()
Runtime1 = Formatnumber (T2 - T1) * 1000 , 2 )

' Start to calculate the time required for 0.2 million times of Opening
T1 = Timer ()
For I = 1   To   200000
Tempvalue =   2 ^ 0.5
Next
T2 = Timer ()
Runtime2 = Formatnumber (T2 - T1) * 1000 , 2 )
% >
& Nbsp; < Font color = Red > < % = Runtime1 % > Millisecond </ Font >
& Nbsp; < Font color = Red > < % = Runtime2 % > Millisecond </ Font >

The running result on the author's own computer is

Let the server execute 0.5 million addition (Integer Operation) and 0.2 million open side (floating point operation) to record the time used.
203.13 Ms 156.25 Ms