Hallo Zusammen,
ich möchte den ersten und jeweils letzten Tag im Monat berechnen.
Stell mir das so vor.
In 2 Felder.. Monat und Jahr wird z.b. 2 und 2015 eingeben.
Der erste Tag im Monat ist leicht. immer der 01.
Aber wie berechne ich den Letzten ?
Also bei diesem Beispiel sollte er mir denn
ErsterTag : 01.02.2015
LetzterTag : 28.02.2015
aus werfen.
Geht das ?
Ich würde das für ein Formular benötigen, welches 2 Datumsfelder zum Suchen hat.
Das Formular hat 2 Felder.
Von_Datum :
Bis_Datum :
ich möchte nicht immer von bis eingeben, wenn ich nur einen kompletten Monat betrachten möchte.
Danke für Eure Antworten
Lg Bernie
Hallo,
im Steuerelementinhalt von "Bis_Datum":
=DatSeriell(Jahr([Von_Datum]);Monat([Von_Datum])+1;0)
(Ohne Fehlerbehandlung)
Hallo Franz,
ok, vll hab ich mal wieder missverständlich ausgedrückt, sorry.
Ich möchte in 2 Felder einmal den Monat und einmal das Jahr eingeben,
und dadurch wird
Von_Datum = Erster Tag des Monates ( den ich eingeben habe )
und
Bis_Datum = Letzter Tag des Monates ( den ich eingeben habe )
Feld Monat = 2
Feld Jahr = 2015
Ergebnis
Von_Datum = 01.02.2015
Bis_Datum = 28.02.2015
Lg Bernie
Ok,
aber ich glaube du hast mich dennoch auf den richtigen Weg gebracht : ;)
If Me.Monat > 0 And Me.U_Jahr > 0 Then
Me.Datum_Bis = DateSerial(Me.U_Jahr, Me.Monat + 1, 0)
Me.Datum_von = "01." & Me.Monat & "." & Me.U_Jahr
End If
Me.Datum_Bis klappt,.
Wie könnte man Me.Datum_von besser darstellen ?
Lg Bernie
Hallo,
1) Die Plausiprüfung von Jahr und Monat sollte besser (auf NULL und "Bereich" prüfen )erfolgen..
Zudem ist "Monat" ein reserviertes Wort und sollte umbenannt werden.
2) Wie könnte man Me.Datum_von besser darstellen ?
Was heißt das? Bessere "Berechnung"?
Me.Datum_Von = DateSerial(Me.U_Jahr, Me.Monat , 1)
Ja genau so hab ich mir das vorgstellt ! ;)
Ok, hab den Monat umbenannt.
Vielen, vielen Dank ! Passt
Lg Bernie