Module Module1
 
   Sub Main()
 
      Dim month As Integer
      Dim year As Integer
 
      Console.Write("Monat (1-12): ")
      month = CType(Console.ReadLine(), Integer)
 
      Console.Write("Jahr (z.B. 2006): ")
      year = CType(Console.ReadLine(), Integer)
 
      Console.WriteLine()
 
      Console.Write("Der {0}.{1} hat {2} Tage", month.ToString, year.ToString, _
       Month_Days(year, month).ToString) ' Aufruf der Funktion "Month_Days"
 
      Console.WriteLine()
      Console.WriteLine("Bitte Enter drücken...")
      Console.ReadLine()
 
   End Sub
 
 
   ' Hier kommt mein Lösungsvorschlag:
   Public Function Month_Days(ByVal year As Integer, ByVal month As Integer) As _
     Integer
 
      Dim datum As Date = DateSerial(year, month + 1, 0)
      Return datum.Day
 
   End Function
 
End Module