Dim nMonth As Integer
Dim nYear As Integer
Dim nDays As Integer
 
' Für welchen Monat und Jahr...
nMonth = 12: nYear = 2002
 
nDays = Day(DateAdd("d", -1, DateSerial(nYear, nMonth + 1, 1)))

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de