Private Function Trova_Festa_Esercito(ByRef Anno As Integer) As DateTime
        ' Funzione che torna la prima domenica dal 4 novembre (Festa delle forze armate) dell'anno passato.
        Dim gg_4_novembre As DateTime = New DateTime(Anno, 11, 4)
        Dim gg_forze_armate As Integer
        Select Case gg_4_novembre.DayOfWeek
            Case Is = DayOfWeek.Sunday
                gg_forze_armate = 4
            Case Is = DayOfWeek.Saturday
                gg_forze_armate = 5
            Case Is = DayOfWeek.Friday
                gg_forze_armate = 6
            Case Is = DayOfWeek.Thursday
                gg_forze_armate = 7
            Case Is = DayOfWeek.Wednesday
                gg_forze_armate = 8
            Case Is = DayOfWeek.Tuesday
                gg_forze_armate = 9
            Case Is = DayOfWeek.Monday
                gg_forze_armate = 10
        End Select
        Dim festa_forze_armate As DateTime = New DateTime(Anno, 11, gg_forze_armate)
        Return festa_forze_armate
    End Function