Как определить время выполнения макроса — Basic(Бейсик)

Для того, чтобы узнать сколько времени прошло пока выполнялся нужный макрос, можно использовать, например, функцию Timer

Private Sub YourMacro()
    iTimer! = Timer
 
    'Здесь должен быть код Вашей программы.

    MsgBox "Время выполнения макроса составило " & _
    Timer - iTimer! & " сек.", vbExclamation, ""
 
    MsgBox "Время выполнения макроса составило " & _
    Format((Timer - iTimer!) / 86400, "Long Time"), vbExclamation, ""
End Sub

Если Вы хотите получить время именно в секундах, то используйте первый MsgBox, если в часах, минутах и секундах, то второй. Если же Вам необходимо получить количество миллисекунд или существует вероятность, что Ваш макрос может быть запущен до полуночи, а обработка данных может закончиться после полуночи, то в этих случаях можно использовать следующий

Leave a Comment