Пользовательская функция вместо формулы - ДАТАМЕС

[KOSTIK1]

Доброго дня Уважаемые форумчане! Сталкнулся с такой проблемой, не всегда можно подключить надстройку "пакет анализа" поэтому функция ДАТАМЕС не работает (в 2003 exel).
Помогите пожалуйста состряпать пользовательскую функцию заменяющую формулу ДАТАМЕС.
А также может кто знает как заменить её другими формулами.
Спасибо заранее!

[Александр Д]

Честно говоря, не уверен будет ли работать в 2003 при отключенном пакете анализа и не могу проверить.
Попробуйте:
Function vasya(a, b)
vasya = WorksheetFunction.EDate(a, b)
End Function

[IgorGO]

=ДАТА(ГОД(нач.дата);МЕСЯЦ(нач.дата) +месяцев;ДЕНЬ(нач.дата)), где нач.дата и месяцев - это те же данные, что и для ДАТАМЕС

[KOSTIK1]

Спасибо вам за варианты! Формула от Игоря работает, но вот с функцией от Александра нет, что очень жалко!
Если есть какие другие варианты с функцией - Спасибо заранее!

Костик

[SAS888]

Можно так:

Function DataMes(cell As Range, Nmes As Integer) As Date
    DataMes = DateSerial(Year(cell), Month(cell) + Nmes, Day(cell))
End Function

[KOSTIK1]

Спасибо SAS888 за ваш вариант! Работает!

А также СПАСИБО ВСЕМ на этом форуме, кто не "проходит" мимо!

Костик.

[Mint86]

Поднимаю данную тему обратно...
Подскажите формулу замены функции ДАТАМЕС.
Все вышеприведенные работают но не так как данная функция. Например формула =ДАТАМЕС(ДАТА(2010;1;31);1) даст 28.02.2010 года. Вышеперечисленные формулы дадут 03.03.2010 что несовсем то что нужно.

а вообще, в практической жизни вопрос далеко не так прост, как казалось бы...Ж-(
например, для даты 31.03.2008 =ДАТАМЕС(A1;-1) вернёт 29.02.2008,
для даты 29.02.2008 =ДАТАМЕС(B1;-1) вернёт 29.01.2008,
хотя для 31.03.2008 =ДАТАМЕС(A1;-2) возращает 31.01.2008
таким образом отнять два раза ровно по одному месяцу не тоже самое, что отнять ровно два месяца... :-(

(с) ru-board

[alex77755]

попробуй функцию:

Function DM(d As Date, N As Integer) As Date
DM = DateAdd("m", N, d)
End Function

[Mint86]

alex77755
Отлично! Если, кто знает "короткую" формулу для замены функции ДАТАМЕС используя стандартные функции листа, буду благодарен. Это на случай если макросы отключены..

[DV68]

На самый крайний случай:-)
Формула массива:

=ДАТА(ГОД(A1);МЕСЯЦ(A1)+1;
ЕСЛИ(ДЕНЬ(A1)>=МАКС(ДЕНЬ(ДАТА(ГОД(A1);МЕСЯЦ(A1)+1;0)+СТРОКА($1:$31)));
МАКС(ДЕНЬ(ДАТА(ГОД(A1);МЕСЯЦ(A1)+1;0)+СТРОКА($1:$31)));ДЕНЬ(A1)))