Funktion VBA: Date

Beschreibung

Die Funktion VBA Date gibt das aktuelle Systemdatum zurück.

Syntax Date

Date

Beispiel VBA Date

Speichern wir das von der Funktion Date zurückgegebene Datum in Zelle A1:

Sub DateExample1()

    Range("A1") = Date
    
End Sub

Lassen Sie uns das von der Funktion Date zurückgegebene Datum im Textformat anzeigen:

Sub DateExample2()

    MsgBox Format(Date, "d mmmm yyyy") 'Rückgaben, zum Beispiel: 2. November 2020
    
End Sub

Wir führen die Aktion nur aus, wenn das von der Funktion Date zurückgegebene Datum dem ersten Tag des Monats entspricht:

Sub DateExample3()

    If Day(Date) = 1 Then
        MsgBox "Es ist der erste Tag des Monats!"
    End If
    
End Sub