Timer
The Timer function returns a count of the number
of seconds that have passed since midnight according to the
system's internal clock.
Response.Write "Seconds Since Midnight = " & Timer
This function returns a floating point number which includes
milliseconds as well as whole seconds. This allows you to use
the timer function to evaluate the performance of your scripts.
An example of how this is done is shown below.
Dim fStart ' start time when the script executes
Const PI = 3.1415926
fStart = Timer
For I = 0 To 2 Step 0.1
Response.Write "Cos(" & I & " * PI) = "
Response.Write Cos(I * PI) & "<BR>"
Next
Response.Write "Time to Run = " & (Timer - fStart) & " Seconds<BR>"
|
