VBA Datum plus X Jahre – BAHNSKIS Code Archiv

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 Name	Parameter Wert
DDate	Datum zu dem eine Anzahl von Jahren addiert werden soll
ValYear	Die Zahl der Jahre die auf das Datum addiert werden.

Rückgabe

Rückgabe Typ	Rü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

VBA YearAdd

0.33 KB 4 Downloads

5. März 2020

Download