VBA Access: Datum plus X Jahre

Posted on 18. November 201110. April 2017 by Christian Bahn | Posted in Berechnung, Datum, Programmierung, VBA MS AccessTagged addieren, date, datum, jahr, ms access, vba

Beschreibung:

Um von einem Datum eine bestimmte Anzahl von Jahren zu addieren kann die nachfolgende Funktion genutzt werden.

Benötigt: VB Access Anzahl Tage eines bestimmten Monats

Parameter:

Parametername	Parameterwert
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ückgabetyp	Rückgabewerte
Date	Das Addierte Datum

Beispiel:

debug.Print YearAdd("10.10.2017",5)
10.10.2022

1 2	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 &gt; Dmax Then d = Dmax
    YearAdd = DateSerial(Y, M, d)
End Function

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