Как прибавить x дней к дате?
#1
Отправлено 08 апреля 2010 - 10:15
Пока адекватных вариантов не нашел. Пробовал для примера переводить даты функцией CVDate и вычитать друг из друга, но это не совсем то и работает только для времени<суток.
Похоже нужно функцию писать, но дело это непростое, т.к. надо при этом учитывать календарь, изменение месяца, года...короче было просто замечательно, если б такая функция уже была
Если кто в теме - подскажите!
#2
Отправлено 09 апреля 2010 - 11:47
Всем привет! Вопрос возник - беру текущую дату (функция, положим 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
#3
Отправлено 12 апреля 2010 - 06:40
Как-то сразу не дошло, что можно просто взять и прибавить x к дате))))
Спасибо большое!!!
Количество пользователей, читающих эту тему: 0
0 пользователей, 0 гостей, 0 анонимных