Beschreibung
Um von einem Datum eine bestimmte Anzahl von Jahren zu subtrahieren kann die nachfolgende Funktion genutzt werden.
Benötigt die Funktion MaxDayMonth
Parameter
Parameter Name | Parameter Wert |
---|---|
DDate | Das Datum zu dem eine anzahl von X Jahren subtrahiert werden. |
ValYear | Anzahl der Jahre die zu dem Datum subtrahiert werden sollen. |
Rückgabe
Rückgabe Typ | Rückgabe Wert |
---|---|
Date | Das Subtrahierte Datum |
Beispiel
debug.Print YearSub("10.10.2017",5) 10.10.2012
Code
Public Function YearSub(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 YearSub = DateSerial(Y, M, d) End Function
Download

VBA YearSub
1 Datei(en) 0.33 KB