<code>Dim nDays As Integer
Dim Monat As Integer
Dim Jahr As Integer
 
<font color=green>' Jahr und Monat, für den die Anzahl der Tage
' ermittelt werden sollen</font>
  Jahr = 2000: Monat = 2
 
nDays = Day(DateSerial(Jahr, Monat + 1, 0))
MsgBox nDays</code>