VBA Datum minus X Monate - BAHNSKIS Code Archiv

Beschreibung

Um von einem Datum eine bestimmte Anzahl von Monaten zu subtrahieren kann die nachfolgende Funktion genutzt werden.

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

0.40 KB 11 Downloads

6. März 2020

Download