Visual Basic - Technik, FAQ, Tricks, Beispiele

Home / Allgemein / Zeit / Monatslänge

Anzahl der Tage eines Monats

Die DateSerial-Funktion interpretiert Angaben wie "32.12.2000" als den entsprechenden (weitergezählten) Tag, hier also "1.1.2001".

Dadurch ist es sehr einfach, die Anzahl der Tage eines Monats zu berechnen:
Function DaysOfMonth(ByVal Year As Long, ByVal Month As Long) As Long
  DaysOfMonth = Day(DateSerial(Year, Month + 1, 0))
End Function
Mit dieser Funktion kann man auch leicht bestimmen, ob ein bestimmtes Jahr ein Schaltjahr ist: nämlich genau dann, wenn DaysOfMonth(Jahr, 2) den Wert 29 zurückliefert.
Übersetzung eines Artikels von Francesco Balena (VB2TheMax).

© Jost Schwider, 05.05.2000-05.05.2000 - http://vb-tec.de/monattag.htm