Функције ВБА тајмера враћају број секунди које су протекле од поноћи текућег дана (враћене као појединачни тип података).
Коришћење функције ВБА тајмера
Следећи код ће вам показати како да користите функцију ВБА тајмера да бисте утврдили колико је секунди прошло, од поноћи, у време извршавања кода:
| 12345678 | Суб УсингТхеВБАТимерФунцтион ()Дим сецондсСинце Ас СинглесецондсСинце = Тајмер ()Дебуг.Принт сецондсСинцеЕнд Суб |
Резултат је:
Користите ВБА тајмер за добијање стварног времена
Можете вратити секунде враћене из функције Тајмер у формат хх: мм: сс да бисте видели стварно време помоћу следећег кода:
| 123456789101112131415 | Суб ГеттингТхеАцтуалТиме ()Дим сецондсСинце Ас СинглеДим цТиме Ас ДоублеЗатамните АцтуалТиме као варијантусецондсСинце = Тајмер ()цТиме = сецондсСинце / (86400)тхеАцтуалТиме = Формат (цТиме, "хх: мм: сс")МсгБок "Време протекло од поноћи у секундама је" & "" & сецондсСинце & вбНевЛине & _"Стварно време је:" & "" & тхеАцтуалТимеЕнд Суб |
Резултат је:
Временски одељак ВБА кода
Ако желите да упоредите поново написани код или расправљате о „бржим“ методама у ВБА, можете користити уграђени тајмер ВБА. Постављање променљиве која је једнака тајмеру на почетку кода и одузимање ове вредности од тајмера на крају ће вам дати добра процена колико времена је потребно да се изврши комад кода.
Између осталог, на перформансе могу утицати други програми који се покрећу или покушавају да се покрену док сте макро активни.
Следећи пример је коришћен да се види колико је времена потребно да се реч „тест“ упише у ћелију А1 на листу 1 пола милиона пута. На мојој машини је трајало 21 секунду.
| 123456789101112131415161718 | Суб БенцхМарк ()Дим Цоунт Ас ЛонгДим БенцхМарк Ас ДоублеБенцхМарк = Тајмер„Почетак тестирања кодаЗа број = 1 до 500000Схеет1.Целлс (1, 1) = "тест"Нект Цоунт'Крај кода за тестирањеМсгБок Тимер - БенцхМаркЕнд Суб |
Ако ваш код ради споро, покушајте га убрзати онемогућавањем ажурирања екрана. Да би екран програма Екцел био активан док тајмер ради, можемо да уметнемо методу ДоЕвентс у код.
