Kategorien
CodeArchiv Datum VBA

VBA Datum plus X Jahre

Beschreibung

Um von einem Datum eine bestimmte Anzahl von Jahren zu addieren kann die nachfolgende Funktion genutzt werden.

Benötigt die Funktion MaxDayMonth

Parameter

Parameter NameParameter Wert
DDateDatum zu dem eine Anzahl von Jahren addiert werden soll
ValYear Die Zahl der Jahre die auf das Datum addiert werden.

Rückgabe

Rückgabe TypRückgabe Wert
Date Das Addierte Datum

Beispiel

debug.Print YearAdd("10.10.2017",5)
10.10.2022

Code

Public Function YearAdd(DDate As Date, ValYear As Integer) As Date
	Dim M As Integer
	Dim Y As Integer
	Dim d As Integer
	Dim Dmax As Integer
	d = Day(DDate)
	M = Month(DDate)
	Y = Year(DDate)
	Y = Y + ValYear
	Dmax = MaxDayMonth(DateSerial(Y, M, 1))
	If d > Dmax Then d = Dmax
	YearAdd = DateSerial(Y, M, d)
End Function

Download