La funzione VBA Now restituisce la data e l'ora correnti del sistema.
Now
Memorizziamo la data restituita dalla funzione Now nella cella A1:
Sub NowExample1()
Range("A1") = Now
End Sub
Visualizziamo la data restituita dalla funzione Now in formato testo:
Sub NowExample2()
MsgBox Format(Now, "d mmmm yyyy hh:nn") 'Resi, ad esempio: 2 novembre 2020 13:08
End Sub
Eseguiremo l'azione solo se sono almeno le 17:00 e un giorno feriale:
Sub NowExample3()
If Hour(Now) >= 17 And Weekday(Now, vbMonday) < 6 Then
MsgBox "La giornata lavorativa è quasi finita!"
End If
End Sub