TimeSpan 实例的值表示一个时间段。该值是实例中包含的刻度数,其范围可以在 Int64.MinValue 到 Int64.MaxValue 之间。
Dim strMsg As String = "离国庆节还有{0}天。"
Dim nowdt As DateTime = DateTime.Now.Date
Dim nextDt As DateTime = New DateTime(nowdt.Year, 10, 1)
Dim nDay As TimeSpan = nextDt.Subtract(nowdt)
MessageBox.Show(String.Format(strMsg, nDay.Days.ToString))
以前常用 DateDiff(DateInterval.Day, nowdt, nextDt)