Функция Excel VBA Now
СЕГА е функция за дата и час и в двете VBA, която се използва за получаване на текущата системна дата и час, точно както функцията на работния лист, която не взема никакви аргументи в нея, във VBA сега функцията също не взема никакви аргументи, връщането за тази функция е дата.
Функцията VBA NOW е подобна на функцията в работния лист на Excel. Подобно на функцията DATE във VBA „СЕГА“ също няма параметри за предаване, просто трябва да предадем функцията със затворени скоби или без нужда от скоби. Използвайки функцията DATE във VBA, можем да генерираме текущата дата като система, върху която работим. Виждал съм обаче ситуации, в които се нуждаем и от текущо време заедно с датата. В Excel можем да правим много разновидности на неща, по подобен начин можем да генерираме текуща дата и час с проста функция, наречена СЕГА в Excel.
Формулата на VBA СЕГА е проста.
СЕГА ()
Пример за СЕГА функция в VBA Excel
Погледнете простия пример за функцията NOW във VBA. Следвайте стъпките по-долу, за да напишете кода на VBA и да имате доста добри познания СЕГА, както и да пишете кода.
Стъпка 1: Стартирайте подпроцедурата, като дадете име на макрос.
Код:
Sub Now_Example1 () Край Sub
Стъпка 2: Декларирайте променливата като „Дата“. Причината, поради която трябва да декларираме променливата като „Дата“, тъй като крайният ни резултат е във формат Дата и Час.
Код:
Sub Now_Example1 () Dim k As Date End Sub
Стъпка 3: Присвойте стойността на променливата „k“, като приложите функцията VBA NOW.
Код:
Sub Now_Example1 () Dim k As Date k = Now End Sub
Стъпка 4: Сега покажете стойността на функцията СЕГА, която сме присвоили на променливата „k“ в полето за съобщения във VBA.
Код:
Sub Now_Example1 () Dim k As Date k = Now MsgBox k End Sub
Добре, приключихме
Изпълнете кода с помощта на клавиша F5 или ръчно и вижте какъв е резултатът.
Резултатът показва 15.4.2019 в 5:03:35.
Форматът на датата на компютъра ми е „мм-дд-гггг“.
Също така можем да променим формата на датата, като използваме функцията FORMAT. По-долу е даден кодът за промяна на формата на датата.
Код:
Sub Now_Example1 () Dim k As Date k = Now MsgBox Format (k, "DD-MMM-YYYY HH: MM: SS") End Sub
Пуснете кода и вижте разликата.
Сега имаме подходящ формат за дата и час. С този формат всеки може да разбере формата на датата и часа.
Летливи в природата:
Както можете да видите в първия пример, ние получихме резултата от времето като 5:03:35, а във втория пример, ние отиваме резултата като 17:19:02. Това показва, че функцията NOW е променлива функция, която се променя всяка секунда.
Алтернатива на функцията на таймера във VBA
Като алтернатива на VBA TIMER можем да използваме функцията “VBA NOW”, за да изчислим общото време, необходимо на макроса за изпълнение на задачата.
Използвайте кода по-долу, за да изчислите времето, необходимо на вашия код.
C0de:
Sub TotalDuration () Dim k As Date k = Now '' 'Въведете кода си тук' '' MsgBox "Общото време, отнемано от макроса за изпълнение на задачата е:" & _ Format ((Now - k), "HH: MM : SS ") Край Sub
В зелено оцветената област копирайте и поставете кода си.
Изпълнете кода, като натиснете клавиша F5 или натиснете бутона за изпълнение. Веднага след като завърши изпълнението, ще получим времето, необходимо на макроса за завършване на съобщението на задачата в полето за съобщения. По-долу е даден пример за същото.
По този начин можем да използваме функцията NOW по много начини във VBA.
Можете да изтеглите този шаблон за функция VBA Now на функцията Excel тук - VBA Now Function Template