Erster Tag und Letzter Tag im Monat

[Bernie110]

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

[DF6GL]

Hallo,

im Steuerelementinhalt von "Bis_Datum":

Code [Auswählen] Erweitern

=DatSeriell(Jahr([Von_Datum]);Monat([Von_Datum])+1;0)


(Ohne Fehlerbehandlung)

[Bernie110]

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

[Bernie110]

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

[DF6GL]

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)

[Bernie110]

Ja genau so hab ich mir das vorgstellt !
Ok, hab den Monat umbenannt.

Vielen, vielen Dank ! Passt

Lg Bernie