KontaktDSVGO
Function EndOfMonth(ByVal Year As Long, ByVal Month As Long) As Variant EndOfMonth = DateSerial(Year, Month + 1, 0) End Function
© Jost Schwider, 05.05.2000-05.05.2000 - http://vb-tec.de/monatend.htm