Dim d1 As New DateTime(2006, 5, 1) Dim i As Long = DateDiff(DateInterval.Day, d1, Now)
Dim days As Long = CType((Date1.Date - Now.Date), Date).TotalDays