Visual Basic - Technik, FAQ, Tricks, Beispiele

Home / Allgemein / Zeit / Monatsende

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

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