Dim dt As DateTime = New Date(2008, 11, 16, 15, 46, 12) Dim ts As TimeSpan = dt.Subtract(New Date(2005, 10, 28, 10, 23, 36)) MessageBox.Show("Il y a " & ts.Days & " jours, " & ts.Hours & " heures, " & ts.Minutes & " minutes, " & ts.Seconds & " d'écart", "resultat", MessageBoxButtons.OK)