Вопрос
Как посчитать, сколько дней прошло между двумя датами?
Ответ
Dim d1 As Date, d2 As Date, lDays As Long
d1 = CDate("01/01/100")
d2 = CDate("24/03/1978")
lDays = DateDiff("d", d1, d2)
Ну и назад:
d2 = DateAdd("D", lDays, d1)
Дмитрий Данелия
Copyright 
2000-2004 Сообщество Чайников
Контактная информация