Funkcja VBA Now zwraca bieżącą datę i godzinę systemową.
Now
Zapisz moją datę zwróconą przez funky Now w komórce A1:
Sub NowExample1()
Range("A1") = Now
End Sub
Wyświatmy datę zwróconą przez funków Now w tekścieowym:
Sub NowExample2()
MsgBox Format(Now, "d mmmm yyyy hh:nn") 'Zwroty np.: 2 listopada 2020 13:08
End Sub
Akcja zostanie wykonana tylko wtedy, gdy będzie co najmniej godzina 17:00 i dzień powszedni:
Sub NowExample3()
If Hour(Now) >= 17 And Weekday(Now, vbMonday) < 6 Then
MsgBox "Dzień pracy już prawie dobiegł końca!"
End If
End Sub