The VBA Date function returns the current system date.
Date
Storing the date returned by the Date function in cell A1:
Sub DateExample()
Range("A1") = Date
end sub
Display the date returned by the Date function in text format:
Sub DateExample2()
MsgBox Format(Date, "d mmmm yyyy") 'Returns, for example: 2 November 2020
end sub
Perform the action only if the date returned by the Date function is the first day of the month:
Sub DateExample3()
If Day(Date) = 1 Then
MsgBox "It's the first day of the month!"
End if
end sub