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