> Dim earlierDate As New DateTime(2007, 8, 5, 10, 15, 0) > Dim timespan As TimeSpan = DateTime.Now.Subtract(earlierDate) > Dim difference As New DateTime(timespan.Ticks) > MessageBox.Show(difference.Year.ToString + " " + difference.Month.ToString + " " + difference.Day.ToString) >>