Function Feb_Days(ByVal year As Integer)
        'Funktion zum Berechnen der Anzahl der Tage des Monats Februar
        'Die Function "Mod" gibt den Rest einer ganzzahligen Division zweier 
        ' Zahlen zurück.
        'Beispiel: Der Ausdruck "(year Mod 4)" liefert für 2006 den 
        ' Divisionsrest aus 2006:4 das
        'Ergebnis 2
        ' *
        Dim days As Integer
        ' *
        days = 28
        ' *
        If (year Mod 4) = 0 Then days = 29
        If (year Mod 100) = 0 Then days = 28
        If (year Mod 400) = 0 Then days = 29
        ' *
        Feb_Days = days
        ' *
    End Function
 
    Function Month_Days(ByVal year As Integer, ByVal month As Integer)
        'Funktion zum Berechnen der Anzahl der Tage eines Monats
        ' *
        Dim days As Integer
        ' *
        If month = 2 Then
            days = Feb_Days(year)
        ElseIf month = 4 Or month = 6 Or month = 9 Or month = 11 Then
            days = 30
        Else
            days = 31
        End If
        ' *
        Month_Days = days
        MsgBox(days)
        ' *
    End Function