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 ein leichtes, den letzten Tag eines Monats zu bestimmen:

Function EndOfMonth(ByVal Year As Long, ByVal Month As Long) As Variant
  EndOfMonth = DateSerial(Year, Month + 1, 0)
End Function

---

Übersetzung eines Artikels von Francesco Balena (VB2TheMax).