Собственно в теме... Вообще проблема такая, необходимо из задаваемой даты вычесть дату документа и сосчитать сколько между ними дней, недель, месяцев или лет...

Дата1-Дата2=количество секунд

вроде так ДЕНЬ НЕДЕЛЯ МЕСЯЦ

вычти одно из другого и подели результат на количество секунд в сутках

Дальше сам догадаешься?

чему равна единица измерения месяц в более мелких единицах времени?

(5) в наносекундах?

(6) можно просто в секундах, секунда это базовая вроде бы единица измерения времени

(5) вот и я о том же ) в месяце разное количество дней!
вот что пока имею

СрокДней = (ДатаОкончанияДействия - ЭтотОбъект.Дата)/60/60/24;
   
   Если СрокДней < 7 Тогда
       СрокДействия = СрокДней; ЕдиницаИзмеренияСрокаДействия = Перечисления.ЕдиницыИзмеренияСрокаДействия.День;
   ИначеЕсли СрокДней>7 и "ДЕЛИТЬСЯ НАЦЕЛО НА 7" Тогда
       СрокДействия = СрокДней; ЕдиницаИзмеренияСрокаДействия = Перечисления.ЕдиницыИзмеренияСрокаДействия.Неделя;
       
   КонецЕсли;

РАЗНОСТЬДАТ поюзать предлагаю

(8) Сначала найди разницу в месяцах (получи годы и месяцы дат, из неё определи, сколько месяцев там будет).
А потом "хвостик" распиши по неделям, дням, часам, минутам и т.д.

(8) интересное условие "ДЕЛИТЬСЯ НАЦЕЛО НА 7"

(11) это псевдокод

(11) это мысли по поводу реализации :) если нацело, то есть недели.... А функцию разность дат почему то найти не могу...

(13) она в запросе

(11) интересное условие "ДЕЛИТЬСЯ НАЦЕЛО НА 7"
=

Если СрокДней % 7 = 0 Тогда

ВЫБРАТЬ
   РАЗНОСТЬДАТ(&ОтДаты, &ДоДаты, ДЕНЬ) КАК Дней,
   РАЗНОСТЬДАТ(&ОтДаты, &ДоДаты, МЕСЯЦ) КАК Месяцев,
   РАЗНОСТЬДАТ(&ОтДаты, &ДоДаты, КВАРТАЛ) КАК Кварталов,
   РАЗНОСТЬДАТ(&ОтДаты, &ДоДаты, ГОД) КАК Лет

РАЗНОСТЬДАТ врет ))) если задать даты от 04/08/2010 до 01/09/2010 Говорит что месяц ) так что не подходит...
(15) Спасибо то что нужно! )

(17) Почему врет ... 09 месяц - 08 месяц = 1

Ну он ведь не полный...

А что такое полный месяц ? 28 дней ? 29 ? 30 ? 31 ?

Полный месяц это 4.09 - 4.08...

(21) У тебя есть Год1 и Год2 - годы дат, есть Месяц1 и Месяц2 - месяцы дат, есть День1 и День2 - дни месяца дат.
ЧислоМесяцевМежду = (Год2-Год1)*12+(Месяц2-Месяц1)-?(День2<День1,1,0);

Нужно выделить только целое... В общем если вдруг кому-нибудь пригодиться такой бред))) вот
   
СрокДней = (ДатаОкончанияДействия - НачалоДня(ЭтотОбъект.Дата))/60/60/24;
   
   Если Год(ДатаОкончанияДействия)<>Год(ЭтотОбъект.Дата) Тогда
       //Если месяц и день совпали - то раное количество лет
       Если Месяц(ЭтотОбъект.Дата)=Месяц(ДатаОкончанияДействия) и День(ЭтотОбъект.Дата)=День(ДатаОкончанияДействия) Тогда
           СрокДействия = Год(ДатаОкончанияДействия)-Год(ЭтотОбъект.Дата);
           ЕдиницаИзмеренияСрокаДействия = Перечисления.ЕдиницыИзмеренияСрокаДействия.Год;
       //Если совпал только день - то ровное количество месяцев>12    
       Иначе
           Если Месяц(ЭтотОбъект.Дата)<>Месяц(ДатаОкончанияДействия) и День(ЭтотОбъект.Дата)=День(ДатаОкончанияДействия) Тогда
               СрокДействия = Месяц(ДатаОкончанияДействия)-Месяц(ЭтотОбъект.Дата)+12;
               ЕдиницаИзмеренияСрокаДействия = Перечисления.ЕдиницыИзмеренияСрокаДействия.Месяц;
           //Если День не равен проверяем кратность 7, если да то недель, > 12 месяце
           ИначеЕсли СрокДней % 7 = 0 Тогда
               СрокДействия = СрокДней / 7; ЕдиницаИзмеренияСрокаДействия = Перечисления.ЕдиницыИзмеренияСрокаДействия.Неделя;
           //Если и тут нет, то дни...
           Иначе
               СрокДействия = СрокДней; ЕдиницаИзмеренияСрокаДействия = Перечисления.ЕдиницыИзмеренияСрокаДействия.День;
           КонецЕсли//Конец проверки кратности на месяц
       КонецЕсли//Конец проверки кратности на год
   //Если год тот же    
   Иначе
       //Если совпал только день - то равное количество месяцев<12
       Если Месяц(ЭтотОбъект.Дата)<>Месяц(ДатаОкончанияДействия) и День(ЭтотОбъект.Дата)=День(ДатаОкончанияДействия) Тогда
           СрокДействия = Месяц(ДатаОкончанияДействия)-Месяц(ЭтотОбъект.Дата);
           ЕдиницаИзмеренияСрокаДействия = Перечисления.ЕдиницыИзмеренияСрокаДействия.Месяц;
       //Если День не равен проверяем кратность 7, если да то недель < 12 месяце    
       ИначеЕсли СрокДней % 7 = 0 Тогда
           СрокДействия = СрокДней / 7; ЕдиницаИзмеренияСрокаДействия = Перечисления.ЕдиницыИзмеренияСрокаДействия.Неделя;
       //Если и тут нет, то дни...    
       Иначе
           СрокДействия = СрокДней; ЕдиницаИзмеренияСрокаДействия = Перечисления.ЕдиницыИзмеренияСрокаДействия.День;
       КонецЕсли;
   КонецЕсли;


Только ОБЯЗАТЕЛЬНО проверить везде ли при вычислении я поставил начало дня )

(21) С таким подходом 31.08 - 30.09 для тебя будет не полным месяцем

:(((( мляяяяяяяяя

количество месяцев:
КолвоМесяцев=0;
Пока ДобавитьМесяц(НачДата,КолвоМесяцев)<=Кондата Цикл
   КолвоМесяцев=КолвоМесяцев+1;
КонецЦикла;

Пока ДобавитьМесяц(НачДата,КолвоМесяцев+1)<=Кондата Цикл

(26) спасибо, и + условие...

КолвоМесяцев=0;
Пока ДобавитьМесяц(НачДата,КолвоМесяцев)=Кондата Цикл
   КолвоМесяцев=КолвоМесяцев+1;
   Если НачДата>КонДата Тогда Прервать; КонецЕсли;
КонецЦикла;

Как то так, чтобы узнать ровное ли количество месяцев... А вообще слишком уж заморочено получилось

(28)
Пока ДобавитьМесяц(НачДата,КолвоМесяцев)=Кондата Цикл
не верно, ибо зайдет только тогда когда начДата=КонДата