VB-Tec.de Visual Basic - Technik, FAQ, Tricks, Beispiele

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).