Wie verwende ich die Funktion DateAdd in VBA?

In VBA (Visual Basic for Applications) wird die Funktion `DateAdd` verwendet, um einem Datum einen bestimmten Zeitabschnitt hinzuzufügen oder davon abzuziehen. Die Funktion hat die folgende Syntax:

DateAdd(interval, number, date)

Hier ist eine Beschreibung der Parameter:

interval: Dies ist ein Ausdruck vom Typ String, der das Intervall angibt, das Sie hinzufügen möchten. Es gibt verschiedene Intervalltypen, die durch Abkürzungen dargestellt werden, wie z.B.:

`”yyyy”`: Jahr
`”q”`: Quartal
`”m”`: Monat
`”y”`: Tag des Jahres
`”d”`: Tag
`”w”`: Wochentag
`”ww”`: Woche
`”h”`: Stunde
`”n”`: Minute
`”s”`: Sekunde

number: Dies ist die Anzahl der Intervalle, die Sie hinzufügen oder abziehen möchten. Sie können eine positive Zahl (zum Hinzufügen) oder eine negative Zahl (zum Abziehen) verwenden.
date: Dies ist das Datum, zu dem das Intervall hinzugefügt werden soll. Es kann ein Datumsausdruck, ein Datumsliteral oder eine Datumsvariable sein.

Hier ist ein einfaches Beispiel, wie Sie die `DateAdd`-Funktion verwenden können:

Sub BeispielDateAdd()

    Dim startDate As Date
    Dim newDate As Date

    ' Startdatum festlegen
    startDate = #10/15/2023#

    ' Einen Monat zum Startdatum hinzufügen
    newDate = DateAdd("m", 1, startDate)

    ' Ergebnis im Direktfenster ausgeben
    Debug.Print "Neues Datum: " & newDate  ' Ausgabe: 15.11.2023

End Sub

In diesem Beispiel wird dem Datum “15.10.2023” ein Monat hinzugefügt, was “15.11.2023” ergibt. Sie können die Intervalle und die Anzahl der Intervalle anpassen, um das gewünschte Datum basierend auf Ihren Anforderungen zu berechnen.

facebooklinkedin