VBScript. Функция Timer
Материал из GedeminWiki
Возвращает количество прошедших с полуночи секунд.
Timer
Функция обеспечивает точность до одной миллисекунды (т.е. возвращает три знака после запятой) и удобна для измерения времени выполнения участка кода.
Пример:
Dim OldTime, TimeElapsed, N, I OldTime = Timer N = 0 For I = 1 To 100000 N = N + 1 Next TimeElapsed = Timer – OldTime ' Время выполнения цикла