Einem Datum eine Anzahl Tage hinzurechnen

[T417]

Hallo,

ich modifiziere im Moment die Datenbank meines Vorgängers.
Auf den ersten Blick hab ich da ein leichtes Problem, aber mir fällt da irgendwie nichts Brauchbares ein.

Ich soll in einen Formular die Möglichkeit hinzuprogrammieren, eine bestimmte (vom Nutzer eingebene) Anzahl Tage auf ein bestimmtes Datum aufzuaddieren. Das Problem: Der Tag darf kein Sonntag sein.

Mein Vorgänger hat bereits ein Kalender-Steuerelement dort eingebaut, ich hab allerdings keine Ahnung ob ich das für meine Zwecke brauchen kann.

Da bestimmt einer von euch schon mal ein ähnliches Problem hatte, kann mir bestimmt jemand einen Tip geben, oder?

[oma]

Hallo,

da gib es verschiedene Möglichkeiten, abhängig davon wie du das händeln willst.

Eine einfache Lösung wäre in einem Formular mit einem Feld "DeinDatumsfeld" und einem Feld "DeineAnzahl" sowie ein ungebundenes Feld DatumNeu (mit Format, datum) mit
=DatAdd("d";[DeineAnzahl ];[DeinDatumsfeld ) und ein weiteres ungebundenes Feld mit =Format([DatumNeu];"dddd")

So siehst du bei Eingabe einer Anzahl , ob das berechnete Datum ein Sonntag ist.

Lässt sich natürlich noch besser prüfen, gestalten, ganz wie du das händeln willst

Gruß Oma

[T417]

Hallo,

danke für deine Antwort.
Ich habe das Ganze etwas anders lösen müssen, da ich wie erwähnt eine Datenbank meines Vorgängers bearbeiten muss.

Code [Auswählen] Erweitern

Private Sub Text117_AfterUpdate()'In Text117 wird die Anzahl der Tage eingefügt
Dim Dat1Var As Integer
Dim Dat2Var As Date
   
Dat1Var = Me.Text117.Text

Me.Abrechnungsdatum.SetFocus
Dat2Var = Me.Abrechnungsdatum.Text
Dat2Var = Dat2Var + Dat1Var
Me.Text126.SetFocus'In Text126 wird dann das Zieldatumm angezeigt
Me.Text126 = Dat2Var

CurrentDb.Execute ("UPDATE tblAbr SET Zieldatum='" & Dat2Var & "'")
End Sub

Mein einziges Problem besteht nun darin, das, falls das Zieldatum ein Sonntag ist, das Datum für den nächsten Montag angezeigt werden muss.

[daolix]

Code [Auswählen] Erweitern


...
...
Dat2Var = Dat2Var + Dat1Var
if weekday(Dat2Var) = vbsunday then Dat2Var = Dat2Var + 1  '<----Neue Zeile
Me.Text126 = Dat2Var

CurrentDb.Execute ("UPDATE tblAbr SET Zieldatum='" & Dat2Var & "'")



[T417]

Jou. Danke.

[oma]

Hallo,

falls das Zieldatum ein Sonntag ist, das Datum für den nächsten Montag angezeigt werden muss

das war nicht in der ersten Frage enthalten!

aber nun hast du ja eine Lösung!

Gruß Oma

[MzKlMu]

Hallo,
und was soll passieren, wenn der Montag dann der Ostermontag ist?

[oma]

Hallo,

haha, Klaus hat natürlich Recht, du müsstest sicher auf Sonn- und Feiertage prüfen!!

Gruß Oma

[MzKlMu]

Hallo,
ich hätte auch noch die Weihnachstage, den 1.Mai, den Pfingstmontag 

[T417]

Hallo,

ich muss zum Glück nicht auf Feiertage überprüfen.
Unter anderen deshalb, weil im Bericht das Zieldatum noch einmal zu lesen ist, und 25.12 oder 01.05 sollten schon auffallen.