Funkcja VBA Date zwraca bieżącą datę systemową.
Data
Zapiszmy datę zwróconą przez funkcję Date w komórce A1:
Sub DateExample1()
Range("A1") = Date
End Sub
Wyświetlmy datę zwróconą przez funkcję Date w formacie tekstowym:
Sub DateExample2()
MsgBox Format(Date, "d mmmm yyyy") 'Zwroty np.: 2 listopada 2020
End Sub
Akcję wykonamy tylko jeśli data zwrócona przez funkcję Date będzie odpowiadać pierwszemu dniu miesiąca:
Sub DateExample3()
If Day(Date) = 1 Then
MsgBox "To pierwszy dzień miesiąca!"
End If
End Sub