Calendario

Elegantissimo codice .net per visualizzare un calendario html: più piccolo di così non saprei come fare…

”’ <summary>
   ”’ FUNZIONE GENERALE PER DISEGNARE UN CALENDARIO
   ”’ </summary>
   Function getCalendar(mese As Integer, anno As Integer) As String
        Dim giorni = Enumerable.Range(1, Date.DaysInMonth(anno, mese)).Select(Function(n) New DateTime(anno, mese, n)).ToList
        Dim lunedi As List(Of DateTime) = (From l In giorni Where l.DayOfWeek = DayOfWeek.Monday Select l).ToList
        If giorni(0).DayOfWeek <> DayOfWeek.Monday Then lunedi.Insert(0, lunedi(0).AddDays(-7))
        Dim s As String = "<tr>" & Join("LMMGVSD".ToCharArray().Select(Function(i) "<td>" & i & "</td>").ToArray) & "</tr>"
        s &= Join(lunedi.Select(Function(k) "<tr>" & Join(Enumerable.Range(0, 7).Select(Function(i) IIf(k.AddDays(i).Month = mese, "<td>" & k.AddDays(i).Day & "</td>", "<td></td>")).ToArray) & "</tr>").ToArray)
        Return "<table>" & s & "</table>"
    End Function