DateSerial

Die DateSerial-Funktion gibt ein Datum zurück, das aus den angegebenen Jahres-, Monats- und Tageszahlen generiert wird.

Syntax
Result := DateSerial(YearNumber, MonNumber, DayNumber)
Rückgabewert
Typ	Beschreibung
Double	Das ermittelte Datum
Parameter
Verwendung	Name	Typ	Übergabe	Beschreibung
Erforderlich	YearNumber	Long	ByVal	Jahreszahl
Erforderlich	MonNumber	Long	ByVal	Monatszahl
Erforderlich	DayNumber	Long	ByVal	Tageszahl

Wenn Sie für das Argument YearNumber Werte von 0 bis29 (einschließlich) angeben, interpretiert das Programm diese Angaben als die Jahre von 2000 bis 2029. Alle anderen Werte werden von 1930 bis 1999 interpretiert. Verwenden Sie möglichst die vollständige Angabe mit 4 Stellen (zum Beispiel 2000).

Beispiel

Das folgende Beispiel verwendet numerische Ausdrücke anstelle von absoluten Datumszahlen. Die DateSerial-Funktion gibt in diesem Fall das Datum für den Tag vor dem ersten Tag (1 - 1) des Monats zurück, der zwei Monate vor August (8 - 2) liegt, und zwar 10 Jahre vor dem Jahr 1990 (1990 - 10).

Dim BerechnetesDatum As Date

BerechnetesDatum := DateSerial(1990 - 10, 8 - 2, 1 - 1)

Das Ergebnis ist der 31. Mai 1980.