Wie verwende ich die Funktion DateSerial in VBA?

Die Funktion `DateSerial` in VBA (Visual Basic for Applications) dient dazu, ein Datum zu erstellen, indem sie Jahr, Monat und Tag als separate Ganzzahlen entgegennimmt und daraus ein gültiges Datum formt. Diese Funktion ist besonders nützlich, wenn Sie Datumsangaben auf Grundlage unterschiedlicher Teile zusammensetzen möchten.

Hier ist die allgemeine Syntax der `DateSerial`-Funktion:

DateSerial(year, month, day)

`year`: Eine Ganzzahl, die das Jahr darstellt.
`month`: Eine Ganzzahl von 1 bis 12, die den Monat darstellt. Außerdem können auch Werte außerhalb dieses Bereichs übergeben werden, wobei diese die Anzahl der Monate relativ zum ersten Monat im angegebenen Jahr darstellen (z.B. 13 für Januar des Folgejahres).
`day`: Eine Ganzzahl, die den Tag darstellt. Auch hier können Werte außerhalb des normalen Tagesbereichs übergeben werden, um Tage relativ zum ersten Tag des Monats zu spezifizieren (z.B. 32 für den nächsten Tag im nächsten Monat).

Beispielhafte Verwendung von `DateSerial` in VBA:

Sub BeispielDateSerial()
    Dim dt As Date
    dt = DateSerial(2023, 10, 25) ' Erstellt ein Datum für den 25. Oktober 2023
    MsgBox "Das Datum ist: " & dt
End Sub

In diesem Beispiel wird ein Datum aus den Werten für Jahr, Monat und Tag erstellt, und in einem Meldungsfenster angezeigt.

Zusätzliche Hinweise:

Die Funktion `DateSerial` ist sehr nützlich, um Datumskorrekturen vorzunehmen (z.B. um den 13. Monat auf den ersten Monat des nächsten Jahres umzusetzen).
Die Funktion gibt ein `Date`-Datentyp zurück, der in VBA genutzt wird, um Datum und Uhrzeit zu speichern.
Beachten Sie bei Eingaben, dass negative oder zu hohe Werte zu Verschiebungen führen können. Beispielsweise führt der `month`-Wert 0 zu Dezember des Vorjahres.

Verwenden Sie diese Funktion immer dann, wenn Sie mit zusammengesetzten Datumsdaten arbeiten müssen, um sicherzustellen, dass das erzeugte Datum korrekt ist.

facebooklinkedin