Calcolare il numero dei giorni in un anno in VB.NET

Visto che mi ha incuriosito farlo in PHP, ho deciso di divertirmi anche con altri linguaggi.

Quindi oggi calcoliamo quanti giorni ha un anno usando VB.NET.

Ecco il codice di esempio:

Imports System.DateTime

Module Module1

    Sub Main()
        calcola(2016)
        calcola(2019)
    End Sub

    Sub calcola(ByVal anno As Integer)
        Dim totDays As Integer = 0
        For i As Integer = 1 To 12
            Dim d As Integer = DaysInMonth(anno, i)
            Console.WriteLine(i & " - " & d)
            totDays += d
        Next
        Console.WriteLine("TOT GIORNI: " & totDays)
    End Sub

End Module

Anche qui iteriamo sui mesi dell'anno passato come parametro, e sommiamo i vari giorni.

Per i giorni di un mese usiamo la funzione DaysInMonth, che richiede due paramentri (l'anno e il numero del mese).

Ho fatto il testo con due anni per vedere se i calcoli erano esatti.

Enjoy!