DateSerial-Funktion

Gibt eine Variant-Variable vom Subtyp "Date" für ein angegebenes Jahr, einen angegebenen Monat und einen angegebenen Tag zurück.

Syntax

DateSerial(year, month, day)

Argumente:

• Year: Eine Zahl zwischen 100 und 9999 (einschließlich) oder ein numerischer Ausdruck.
• Month: Ein beliebiger numerischer Ausdruck.
• Day: Ein beliebiger numerischer Ausdruck.

Anmerkungen

Um ein Datum wie den 31. Dezember 1991 anzugeben, muss der Zahlenbereich für jedes Argument DateSerial im zulässigen Bereich für die Einheit liegen, d.h. 1-31 für Tage und 1-12 für Monate. Sie können auch relative Datumsangaben für jedes Argument mit einem numerischen Ausdruck angeben, der einige Tage, Monate oder Jahre vor oder nach einem bestimmten Datum liegt.

Im folgenden Beispiel werden numerische Ausdrücke anstelle absoluter Datumszahlen verwendet. Hier gibt die DateSerial-Funktion ein Datum zurück, das der Tag vor dem ersten Tag (1 - 1) zwei Monate vor August (8 - 2) und10 Jahre vor 1990 (1990 - 10) ist, mit anderen Worten der 31. Mai 1980.

Dim MyDate1, MyDate2
MyDate1 = DateSerial(1970, 1, 1)   
Output: 01-Jan-70
MyDate2 = DateSerial(1990 - 10, 8 - 2, 1 - 1)  
'Output: 31-May-80

Für das Argument "year" werden Werte zwischen 0 und 99 (einschließlich) als die Jahre 1900 bis 1999 interpretiert. Verwenden Sie für alle anderen Argumente "year" eine vollständige vierstellige Jahreszahl (z.B. 1800).

Wenn ein Argument den zulässigen Bereich für dieses Argument überschreitet, wird es auf die nächstgrößere Einheit erhöht. Beispiel: Wenn Sie 35 Tage angeben, wird dies als ein Monat und eine Anzahl von Tagen ausgewertet, je nachdem, an welcher Stelle im Jahr sie angewendet wird. Wenn ein einzelnes Argument jedoch außerhalb des Bereichs -32.768 bis 32.767 liegt, oder das von den drei Argumenten entweder direkt oder durch einen Ausdruck angegebene Datum außerhalb des zulässigen Datumsbereichs liegt, tritt ein Fehler auf.

Das Ausgabeformat für das Datum basiert auf dem kurzen Datumsformat des Systems.

Das folgende Beispiel veranschaulicht die Verwendung der DateSerial-Funktion:

Beispiel 1:

Dim MyDate1
MyDate1 = DateSerial(1970, 1, 1)  
'Output: 01-Jan-70

Beispiel 2:

Dim MyDate2
MyDate2 = DateSerial(1990 - 10, 8 - 2, 1 - 1)   
'Output: 31-May-80

Beispiel 3:

Dim MyDate3
MyDate3 = DateSerial(2025, 15, 40)  
'Output: 09-Apr-26

Beispiel 4:

Dim MyDate4
MyDate4 = DateSerial(2025, 1, 0)   
'Output: 31-Dec-24

Beispiel 5:

Dim MyDate5
MyDate5 = DateSerial(50, 1, 1)   
'Output: 01-Jan-50

Beispiel 6:

Dim MyDate6
MyDate6 = DateSerial(99, 12, 31)   
'Output: 31-Dec-99