Datum + 2 Jahre berechnen

[uwe01]

Morgen Leute,
ich habe da ein Problem mit meiner Berechnung. Möchte gern ab der Zulassung des Fahrzeuges das nächste TÜV Datum Abfragen. Ich bekomme bei meiner Formel nur das Datum von heute plus 2 Monate, benötige aber das Jahr. Wie muß ich da die Formel in meiner Abfrage erstellen.
Danke Euch für euere Antworten

[MzKlMu]

Hallo,
wenn Du Monate (m) addierst, werden auch nur Monate dazu gezählt.

Erkläre das Vorhaben mal genauer.

Und hast Du bedacht, dass der 1.TÜV Termin 3 Jahre nach der Zulassung leigt?

[uwe01]

Hallo,

das weiß das da nur Monate Rechne da ich nicht weiß wie das für Jahre macht. Ich brauche Monat und Jahr. Das der erste TÜV drei Jahre ist habe ich nicht bedacht. Das wird dann wohl das nächste Problem werden. Kann man den so etwas Berücksichtigen ?
Mein Vorhaben ist das ich ein Report drucken kann wo mir die Fahrzeuge angezeigt werden. Ich verwende so etwas schon in meiner DB mit LKW's. Jetzt benötige ich so etwas für PKW.

[MzKlMu]

Hallo,
und bei den LKW ist es doch ein Jahr?

Ich habe immer noch nicht verstanden, was Du genau willst.

Zulassung: 01.04.1999
1.TÜV 01.04.2002
2.TÜV 01.04.2004
...
.
8.TÜV 01.04.2016

Und TÜV 8 willst Du wissen, also immer den nächsten TÜV Termin ausgehend vom Zulassungsdatum unter Berücksichtigung des 1.Intervalls von 3 Jahren?

[uwe01]

Hallo,
ja genau den 8, 10 usw Tüv mit berücksichtigung von den ersten 3 Jahren will ich wissen.Bei den Lkw habe ich es mit Monat gerechnet da ja noch eine Sp dazwichen liegt.

[MzKlMu]

Hallo,
lege in einem allgemeinen Modul folgende Funktion an:

Code [Auswählen] Erweitern

Public Function N_TUEV_Termin(ZulDatum As Date) As Date
Dim DiffJahre As Integer
DiffJahre = DateDiff("yyyy", ZulDatum, Date)
    Select Case DiffJahre
        Case Is < 3
            N_TUEV_Termin = DateAdd("yyyy", 3, ZulDatum)
        Case Is >= 3
            DiffJahre = Int(DiffJahre / 2) * 2 + 1
            N_TUEV_Termin = DateAdd("yyyy", DiffJahre, ZulDatum)
            If N_TUEV_Termin < Date Then
                N_TUEV_Termin = DateAdd("yyyy", 1, N_TUEV_Termin)
            End If
    End Select
End Function
In eine Abfrage dann ein berechnetes Feld:

Code [Auswählen] Erweitern

NächsterTüv: N_TUEV_Termin(Zulassungsdatum)

Zulassungsdatum muss der Name der Spalte sein, die das Zulassungsdatum anzeigt.

Bitte sorgfältig prüfen ob das auch stimmt. Habe es zwar auch getan, aber trotzdem.

[uwe01]

Hallo,
Danke dir es geht