Пусть будет Дата1 = 01.01.2006
и Дата2 = 07.03.2007
Как посчитать разность дат и вывести значение в месяцах?

Срок = Дата2 - Дата1 = 15

подели на 30

Если ввожу срок Конец=ДобавитьМесяц(Начало,Срок) то все ОК, а вот как вычислить разность чтобы срок получился?

ДатаМесяц(Дата2)-ДатаМесяц(Дата1)

(3) а если год разный?

+(ДатаГод(Дата2)-ДатаГод(Дата1))*12

(5) Либо не понял
"Окончание действия: "+(ДатаМесяц(Конец)-ДатаМесяц(НАчало)+(ДатаГод(Конец)+ДатаГод(Начало)*12))

но сумма больно бешанная

(6)+ на - перепутал, внимательнее переписывай

(6)+ на - перепутал. Внимательнее надо

сделай проще
Срок=Цел((Дата2-Дата1)/30 + 1)

(10)Посчитай разницу по своей формуле между 01/12 и 31/12

+11 если я не ошибаюсь 2 месяца

Конец=ДобавитьМесяц(Начало,-Срок) со знаком минус

Как в 1с посчитать кол месяцев между двумя датами

(11) ну эт легко подправить :)


   Если КонДата>НачДата Тогда
       
       ВременнаяДата = КонДата;
       
       // если число конечной даты меньше начальной
       Если ДатаЧисло(КонДата) < ДатаЧисло(НачДата) Тогда
           Дней            = КонДата - ДобавитьМесяц(КонДата,-1);
           ВременнаяДата    = ДобавитьМесяц(КонДата,-1);
       КонецЕсли;
       
       // если месяц конечной даты, меньше месяца начальной, т.е. другого года
       Если ДатаМесяц(ВременнаяДата) < ДатаМесяц(НачДата) Тогда
           ВременнаяДата    = ДобавитьМесяц(ВременнаяДата,-12);
           Месяцев            = 12;
       КонецЕсли;
       
       Лет        = Макс(             ДатаГод  (ВременнаяДата)-ДатаГод  (НачДата),0);
       Месяцев    = Макс(Месяцев    +ДатаМесяц(ВременнаяДата)-ДатаМесяц(НачДата),0);
       Дней    = Макс(Дней        +ДатаЧисло(ВременнаяДата)-ДатаЧисло(НачДата),0);
       
       // скорректируем отображаемое значение, если "вмешалось" разное количество дней в месяцах
       Если НачДата <> (ДобавитьМесяц(КонДата,-Лет*12-Месяцев)-Дней) Тогда
           Дней = Дней + (КонМесяца(НачДата)-НачМесяца(НачДата)) - (КонМесяца(ДобавитьМесяц(КонДата,-1))-НачМесяца(ДобавитьМесяц(КонДата,-1)));
       КонецЕсли;
       
   КонецЕсли;


+(16) Еще посмотрите в ЗиК глРазобратьРазностьДат
там такие штуки практикуются...

глянь в глобальный модуль ,может пригодится процедурка глРазобратьРазностьДат(Дата1,Дата2,Лет,месяцев,дней)