Select Month(Today) Case 1, 3, 5, 7, 8, 10, 12 Case 4, 6, 9, 11 Case 2 If Year(Today) = Schaltjahr Then 29 Else 28 End If End Select