Funcția VBA Date returnează data curentă a sistemului.
Date
Să stocăm data returnată de funcția Date în celula A1:
Sub DateExample1()
Range("A1") = Date
End Sub
Să afișăm data returnată de funcția Date în format text:
Sub DateExample2()
MsgBox Format(Date, "d mmmm yyyy") 'Returnări, de exemplu: 2 noiembrie 2020
End Sub
Vom efectua acțiunea numai dacă data returnată de funcția Date corespunde cu prima zi a lunii:
Sub DateExample3()
If Day(Date) = 1 Then
MsgBox "Este prima zi a lunii!"
End If
End Sub