Сообщений в теме: 2

[St_Andrew]

Всем привет! Вопрос возник - беру текущую дату (функция, положим Date) и хочу получить новую дату, отличающуюся от текущей на x дней.
Пока адекватных вариантов не нашел. Пробовал для примера переводить даты функцией CVDate и вычитать друг из друга, но это не совсем то и работает только для времени<суток.

Похоже нужно функцию писать, но дело это непростое, т.к. надо при этом учитывать календарь, изменение месяца, года...короче было просто замечательно, если б такая функция уже была

Если кто в теме - подскажите!

[Pryanik]

Всем привет! Вопрос возник - беру текущую дату (функция, положим Date) и хочу получить новую дату, отличающуюся от текущей на x дней.
Пока адекватных вариантов не нашел. Пробовал для примера переводить даты функцией CVDate и вычитать друг из друга, но это не совсем то и работает только для времени<суток.

Похоже нужно функцию писать, но дело это непростое, т.к. надо при этом учитывать календарь, изменение месяца, года...короче было просто замечательно, если б такая функция уже была

Если кто в теме - подскажите!

А чем вам обычный "+" не подходит?

Sub Main
	Dim d_time As Variant
	Dim next_time As VAriant

d_time=CVDate("09.04.2010")
next_time = d_str+45
Msgbox "time=" & next_time date
End Sub

[St_Andrew]

Черт возьми, а ведь действительно работает!!!
Как-то сразу не дошло, что можно просто взять и прибавить x к дате))))
Спасибо большое!!!