Как из двты вычесть дату и получить количество дней?

Vw
Дата: 20.05.2006 15:28:01
Подскажите плиз..
vladgrig
Дата: 20.05.2006 22:38:56
Dim d1 As New DateTime(2006, 5, 1)
Dim i As Long = DateDiff(DateInterval.Day, d1, Now)
Deft
Дата: 24.05.2006 11:58:07
Dim days As Long = (Date1.Date - Now.Date).TotalDays

_____________________________________________
Правды как минимум две...
Deft
Дата: 24.05.2006 13:48:34
Уточню:
Dim days As Long = CType((Date1.Date - Now.Date), Date).TotalDays

_____________________________________________
Правды как минимум две...