Dim d1 As String = "2008-9-10" Dim d2 As String = "2007-9-30"
Dim c As TimeSpan = Convert.ToDateTime(d1) - Convert.ToDateTime(d2)
Response.Write(c.Days)