Dim data1 As Date = #1/1/2007#
        Dim data2 As Date = #3/24/2008#

        Dim Giorni, Mesi, Anni As Integer

        Giorni = data2.Day - data1.Day
        Mesi = data2.Month - data1.Month
        Anni = data2.Year - data1.Year

        MessageBox.Show(data1 & vbCrLf & data2 & vbCrLf & vbCrLf & "Sono trascorsi " & Giorni & " giorni " & Mesi & " mesi " & Anni & " anni")

        Giorni = data1.Day - data2.Day
        Mesi = data1.Month - data2.Month
        Anni = data1.Year - data2.Year

        MessageBox.Show(data2 & vbCrLf & data1 & vbCrLf & vbCrLf & "Sono trascorsi " & Giorni & " giorni " & Mesi & " mesi " & Anni & " anni")