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