Public Class Tester
Public Shared Sub Main
Dim birthDay As Date
Dim lifeTime As TimeSpan
Dim lifeDays As Integer
birthDay = Date.Parse("December 25, 2007")
lifeTime = Now.Subtract(birthDay)
lifeDays = lifeTime.Days
Console.WriteLine(String.Format( _
"There are {0} days between {1:D} and {2:D}", _
lifeDays, birthDay, Now))
End Sub
End Class
There are -227 days between December 25, 2007 and May 11, 2007