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