Module DateDiff_DateAdd
    Sub Main()
        Dim DataNascita As Date
        Dim Data18 As Date
        Dim Differenza As Single

        Console.Write("Inserisci la tua data di Nascita: ")
        DataNascita = Console.ReadLine()

        Data18 = DateAdd(DateInterval.Year, 18, DataNascita)
        Console.WriteLine("Diventerai maggiorenne il: " & Data18)

        Differenza = DateDiff(DateInterval.Year, Today(), Data18)
        Console.WriteLine("Mancano " & Differenza & " anni")

        Differenza = DateDiff(DateInterval.Month, Today(), Data18)
        Console.WriteLine("Mancano " & Differenza & " mesi")

        Differenza = DateDiff(DateInterval.Day, Today(), Data18)
        Console.WriteLine("Mancano " & Differenza & " giorni")

        Console.Read()
    End Sub
End Module