Also, if you try that version, you will see it will give 5, 3 and 1:

        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)

We still have only one month completed since August 5th and it gives 3. So, I am not sure this approach will work as well.