Funcția VBA Now returnează data și ora curentă a sistemului.
Now
Să stocăm data returnată de funcția Now în celula A1:
Sub NowExample1() Range("A1") = Now End Sub
Să afișăm data returnată de funcția Now în format text:
Sub NowExample2() MsgBox Format(Now, "d mmmm yyyy hh:nn") 'Returnări, de exemplu: 2 noiembrie 2020 13:08 End Sub
Vom efectua acțiunea numai dacă este cel puțin ora 17:00 și o zi lucrătoare:
Sub NowExample3() If Hour(Now) >= 17 And Weekday(Now, vbMonday) < 6 Then MsgBox "Ziua de lucru aproape s-a terminat!" End If End Sub