VBScript. Функция Timer

Возвращает количество прошедших с полуночи секунд.

 Timer

Функция обеспечивает точность до одной миллисекунды (т.е. возвращает три знака после запятой) и удобна для измерения времени выполнения участка кода.

Пример:

 Dim OldTime, TimeElapsed, N, I
 OldTime = Timer
 N = 0
 For I = 1 To 100000 
   N = N + 1
 Next
 TimeElapsed = Timer – OldTime ' Время выполнения цикла