Съдържание
Описание на таймера
Връща единична стойност, представляваща броя секунди, изминали от полунощ.
Примери за прости таймери
Ето един прост пример за таймер:
123 | Под -таймер_Пример ()Таймер за MsgBoxEnd Sub |
Синтаксис на таймера
В редактора на VBA синтаксисът за функцията Таймер.
1 | Таймер |
Функцията Timer не съдържа аргументи:
Примери за функция за таймер на Excel VBA
Използвайки следния пример за код, моля, опитайте да сравните sec1 и sec2.
След това лесно можем да разберем значението на функцията Таймер.
123456789101112131415161718192021222324252627 | Под -таймер_Пример1 ()Dim sec1 As SingleDim sec2 As Longsec1 = Таймерsec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2End SubФункция GetSecondsFromMidnight () As LongDim dt като датаDim h като цяло числоDim m като цяло числоDim s As Integerdt = Сегаh = час (dt)m = минута (dt)s = Второ (dt)мин = h * 60 + mсекунди = минути * 60 + sGetSecondsFromMidnight = секКрайна функция |
Използвайки функцията Таймер, можем да измерим колко време ще отнеме изпълнението на част от VBA Code.
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 |