Опис таймера
Повертає єдине значення, що представляє кількість секунд, що минули з півночі.
Приклади простих таймерів
Ось простий приклад таймера:
| 123 | Субтаймер_приклад ()Таймер MsgBoxEnd Sub |
Синтаксис таймера
У редакторі VBA синтаксис функції Таймер.
| 1 | Таймер |
Функція Таймер не містить аргументів:
Приклади функції таймера Excel VBA
Використовуючи наступний приклад коду, спробуйте порівняти sec1 та sec2.
Тоді ми зможемо легко дізнатися значення функції Таймер.
| 123456789101112131415161718192021222324252627 | Субтаймер_приклад1 ()Dim sec1 As SingleDim sec2 As Longsec1 = Таймерsec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2End SubФункція GetSecondsFromMidnight () як довгоDim dt As DateDim h як ціле числоDim m Як ціле числоDim s Як ціле числоdt = Заразh = Година (dt)m = хвилина (dt)s = другий (dt)хв = год * 60 + мсек = хв * 60 + сGetSecondsFromMidnight = секФункція завершення |
За допомогою функції Таймер ми можемо виміряти, скільки часу знадобиться для запуску розділу коду VBA.
| 1234567891011121314151617 | Субтаймер_приклад2 ()Dim startSec As SingleDim endSec As SingleDim i As LongstartSec = Таймер'Початок тестування коду VBAДля i = 1 до 500000DoEventsДалі i'Кінець коду VBA для перевіркиendSec = ТаймерMsgBox "Це зайняло" & CStr (endSec - startSec) & "s".End Sub |
