VBA Datum minus x Jahre – BAHNSKIS Code Archiv

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

0.33 KB 7 Downloads

6. März 2020

Download