Anzahl Tage im Monat ermitteln III Eine sehr einfache Möglichkeit, die Anzahl der Tage eines Monats zu ermitteln, zeigt dieser Einzeiler.
Autor:   Emanuel Wlaschitz	Bewertung:     [ Jetzt bewerten ]	Views:  8.011
ohne Homepage	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 20 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Die Funktion  Anzahl Tage im Monat ermitteln II sah auf den ersten Blick vielversprechend aus. Gab bei meinem ersten Test aber einen Fehler von sich. Ich dachte mir, "Das muss auch einfacher gehen..."

Und hier gibts die Lösung dazu:
DateSerial erlaubt uns ja arithmetische Berechnungen...
...Also warum nicht selbige verwenden?

Private Function DaysInMonth(ByVal datum As Date) As Integer
  ' Liefert die Anzahl der Tage zu einem Datum
  DaysInMonth = Format(DateSerial(Year(datum), Month(datum) + 1, 1 - 1), "Dd")
End Function

Das übergebene Datum wird auf Jahr und Monat zerlegt. Das Monat um 1 erhöhen, also den nächsten Monat. Und die Angabe für den Tag ("1 - 1") liefert nach der Hilfe den letzten Tag im Vormonat.

Übrigens: Das Format auf "Dd" ist nur ein möglicher Vorschlag, man könnte beispielsweise auch den Tag des letzten Tages rausfinden (Format auf "dddd").