Beschreibung
Um von einem Datum eine bestimmte Anzahl von Monaten zu subtrahieren kann die nachfolgende Funktion genutzt werden.
Benötigt: MaxDayMonth
Parameter
Parameter Name | Parameter Wert |
---|---|
DDate | Datum zu dem die X Monate abgezogen werden sollen |
ValMonth | Zahl der Monate die abgezogen werden. |
Rückgabe
Rückgabe Typ | Rückgabe Wert |
---|---|
Date | Das Ergebnis der Subtraktion |
Beispiel
debug.Print MonthSub("10.10.2017",5) 10.05.2017
Code
Public Function MonthSub(DDate As Date, ValMonth As Integer) As Date Dim M As Integer Dim Y As Integer Dim d As Integer Dim dd As Date d = Day(DDate) M = Month(DDate) Y = Year(DDate) M = M - ValMonth While M < 0 Y = Y - 1 M = M + 12 Wend If d > MaxDayMonth(DateSerial(Y, M, 1)) Then d = MaxDayMonth(DateSerial(Y, M, 1)) End If MonthSub = DateSerial(Y, M, d) End Function
Download

VBA MonthSub
1 Datei(en) 0.40 KB