Module GestioneDate

    Sub Main()
        Dim DataNascita As Date = Now
        Dim OraNascita As Date = Now
        Dim Anno, Mese, Giorno, Ore, Minuti, Secondi, GiornoSettimana As Integer
        Dim NomeMese, NomeGiornoSettimana As String
        Dim SecondiGiornata As Long


        Console.WriteLine("Funzioni che restituiscono la data e/o l'ora correnti")
        Console.WriteLine("Now - Restituisce la data e l'ora corrente: " & Now())
        Console.WriteLine("Date - Restituisce la data: " & Today())
        Console.WriteLine("Time - Restituisce l'ora corrente: " & TimeOfDay())
        Console.WriteLine()

        Console.WriteLine("Funzioni che estraggono una parte della data o dell'ora")
        Console.Write("Year - Restituisce un Integer compreso tra 1 e 9999 che rappresenta l'anno: ")
        Anno = Year(DataNascita)
        Console.WriteLine(Anno)

        Console.Write("Month - Restituisce un Integer compreso tra 1 e 12 che rappresenta il mese dell'anno: ")
        Mese = Month(DataNascita)
        Console.WriteLine(Mese)

        Console.Write("Day - Restituisce un Integer compreso tra 1 e 31 che rappresenta il giorno del mese: ")
        Giorno = Day(DataNascita)
        Console.WriteLine(Giorno)

        Console.Write("Weekday - Restituisce un Integer contenente un numero che rappresenta il giorno della settimana: ")
        GiornoSettimana = Weekday(DataNascita, FirstDayOfWeek.Monday)
        Console.WriteLine(GiornoSettimana)

        Console.Write("Hour - Restituisce un Integer compreso tra 0 e 23 che rappresenta l'ora del giorno: ")
        Ore = Hour(OraNascita)
        Console.WriteLine(Ore)

        Console.Write("Minute - Restituisce un Integer compreso tra 0 e 59 che rappresenta il minuto dell'ora: ")
        Minuti = Minute(OraNascita)
        Console.WriteLine(Minuti)

        Console.Write("Second - Restituisce un Integer compreso tra 0 e 59 che rappresenta il secondo del minuto: ")
        Secondi = Second(OraNascita)
        Console.WriteLine(Secondi)

        Console.Write("MonthName - Restituisce un valore String contenente il nome del mese specificato: ")
        NomeMese = MonthName(Mese)
        Console.WriteLine(NomeMese)

        Console.Write("WeekdayName - Restituisce un valore String contenente il nome del giorno della settimana specificato: ")
        NomeGiornoSettimana = WeekdayName(GiornoSettimana)
        Console.WriteLine(NomeGiornoSettimana)

        Console.Write("Timer - Restituisce un valore Double che rappresenta il numero di secondi trascorsi dalla mezzanotte: ")
        SecondiGiornata = Timer
        Console.WriteLine(SecondiGiornata)


        Console.Read()
    End Sub

End Module