Работа с датой

[НеВа6464]

Здравствуйте!
Необходимо изменить дату в ячейке ровно на один месяц вперёд.
Например, было в ячейке 12.01.14, должно стать 12.02.14.
Поскольку ячейка с датой постоянно сдвигается, то эта ячейка поименована.
Типа вот так - "Дата_больше"
Как программно можно изменить эту вот "Дата_больше" на один месяц вперёд?
Что будет, если месяц был 12 (декабрь)? Измениться ли он на январь, но уже следующего года?

[IgorGO]

Как программно можно изменить эту вот "Дата_больше" на один месяц вперёд?

Ваш вопрос как бы содержит ответ - необходимо добавить 1 месяц к предыдущей дате.
date2 = date(year(data1), month(date1)+1, day(date1))
один нюанс - при date1 = 31.01.2014 date2 по этой формуле станет равно 03.03.2014

если месяц был 12 (декабрь)? Измениться ли он на январь, но уже следующего года?

изменится

[НеВа6464]

Спасибо.
Ща попробую.

[НеВа6464]

Сообщение от IgorGO

date2 = date(year(data1), month(date1)+1, day(date1))

Эксел пишет, что тут синтаксическая ошибка

[IgorGO]

а так:
date2 = DateSerial(Year(date1), Month(date1) + 1, Day(date1))

[НеВа6464]

да я тут в книжке вот что нашёл:

date1 = Range("Дата_больше")
Range("Дата_больше") = DateAdd("m", 1, date1)

И это работает.

[IgorGO]

поздравляю! сразу бы так
Range("Дата_больше") = DateAdd("m", 1, Range("Дата_больше"))
если "Дата_больше" на входе была 31.01.2014 то на выходе будет 28.02.2014

[НеВа6464]

Сообщение от IgorGO

если "Дата_больше" на входе была 31.01.2014 то на выходе будет 28.02.2014

И это правильно, на самом деле.
Точно также 31.05, например, превращается в 30.06
Гы, 30.5 тоже в 30.6 превращается

[IgorGO]

с датами до 28 числа месяца - без проблем, после 28 надо понимать, что должно быть в итоге... потому что после 28.02.2014 + месяц будет 28.03, 28.04... с 31-го уже спрыгнули.