Access-o-Mania

Access-Forum (Deutsch/German) => Tabelle/Abfrage => Thema gestartet von: uwe01 am Mai 08, 2014, 10:12:44

Titel: Datum + 2 Jahre berechnen
Beitrag von: uwe01 am Mai 08, 2014, 10:12:44
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
Titel: Re: Datum + 2 Jahre berechnen
Beitrag von: MzKlMu am Mai 08, 2014, 10:37:15
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?
Titel: Re: Datum + 2 Jahre berechnen
Beitrag von: uwe01 am Mai 08, 2014, 11:27:52
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.
Titel: Re: Datum + 2 Jahre berechnen
Beitrag von: MzKlMu am Mai 08, 2014, 11:34:10
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?
Titel: Re: Datum + 2 Jahre berechnen
Beitrag von: uwe01 am Mai 08, 2014, 12:04:19
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.
Titel: Re: Datum + 2 Jahre berechnen
Beitrag von: MzKlMu am Mai 08, 2014, 15:47:29
Hallo,
lege in einem allgemeinen Modul folgende Funktion an:
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:
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.
Titel: Re: Datum + 2 Jahre berechnen
Beitrag von: uwe01 am Mai 09, 2014, 08:06:54
Hallo,
Danke dir es geht