Чтот не могу сообразить по поводу сабжа? как посчитать количество полных лет между двумя датами? :(

Вычти годы и поправь на 1 по результатам сравнения номеров дней в году.

хм.. в принципе понял, только все же проверку нужно делать не номера дня в году а сравнивать номера месяца и номера дня в месяце - иначе получим глюк в високосном году в одни и те же день месяца после 29 февраля.
за подсказку спасибо

(2) Тогда может быть так:
Д1 = Год(Дата1)*10000+Месяц(Дата1)*100+День(Дата1);
Д2 = Год(Дата2)*10000+Месяц(Дата2)*100+День(Дата2);
ЧислоЛет = Цел((Д2-Д1)/10000);

(0)
Д1 = Число(Прав(Строка(Дата1),4));
Д2 = Число(Прав(Строка(Дата2),4));
ЧислоЛет = Д2-Д1;

(4) адназначно не правильно
напрмиер
Дата1 = 01.02.2001
Дата2 = 15.01.2009
тогда получится результат 8 лет по вашему - а это не так!!!

(4) Однако не проще ли вместо Число(Прав(Строка(Дата1),4) написать Год(Дата1)?

хоть так, хоть эдак - вариант (5) не даст правильного результата

(5) Так разница 8 лет и получается.
(6) Проще. Проснуться надо))
(7) Почему?

(8) Нужно число _полных_ лет. А их в приведенном примере прошло 7.

имхо совсем правильно как писал (2) (но и (3) считаю практичным вариантом)
Дата1 = Дата(2001,02,01);
Дата2 = ТекущаяДата(); //07.12.2009
ЧислоЛет = Год(Дата2) - Год(Дата1);
Если Месяц(Дата2) < Месяц(Дата1) Тогда
    ЧислоЛет = ЧислоЛет-1;
ИначеЕсли Месяц(Дата2) = Месяц(Дата1) И День(Дата2) < День(Дата1) Тогда
    ЧислоЛет = ЧислоЛет-1;
КонецЕсли;

как-то так если нигде не ошибся :) всем спасибо пошел проверять

(9) 2009-2001=8. Откуда 7 лет?

(0)
Процедура глРазобратьРазностьДат(Знач Дата1,Знач Дата2,Лет=0,Месяцев=0,Дней=0) Экспорт

  Лет = 0; Месяцев = 0; Дней = 0;
  Если Дата1>Дата2 Тогда
       
      ВременнаяДата = Дата1;
      Если ДатаЧисло(ВременнаяДата)<ДатаЧисло(Дата2) Тогда
          Дней = ВременнаяДата-ДобавитьМесяц(ВременнаяДата,-1);
          ВременнаяДата = ДобавитьМесяц(ВременнаяДата,-1);
      КонецЕсли;
      Если ДатаМесяц(ВременнаяДата)<ДатаМесяц(Дата2) Тогда
          ВременнаяДата = ДобавитьМесяц(ВременнаяДата,-12);
          Месяцев = 12;
      КонецЕсли;
      Лет        = Макс(             ДатаГод  (ВременнаяДата)-ДатаГод  (Дата2),0);
      Месяцев    = Макс(Месяцев    +ДатаМесяц(ВременнаяДата)-ДатаМесяц(Дата2),0);
      Дней    = Макс(Дней        +ДатаЧисло(ВременнаяДата)-ДатаЧисло(Дата2),0);

(C)ЕСИС

блин..не все скопировалось.
Вот так :
---------------
Процедура глРазобратьРазностьДат(Знач Дата1,Знач Дата2,Лет=0,Месяцев=0,Дней=0) Экспорт

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

КонецПроцедуры    // глРазобратьРазностьДат

собственно почти это я и написал :)

(11)
Дата1 = 01.02.2001
Дата2 = 15.01.2009
не наступил в данном варианте 8 год - он пойдет через 16 дней, т.е. полный 8ой год будет идти только с даты 15.01.2009 а у вас уже на Дату2 8 ПОЛНЫХ ЛЕТ!!! - это неправильно

если у вас день рождения 15 декабря 1976 года то вам сейчас еще нет 33 полных лет :)

Функция ПолучитьРезультатЗапроса_Запрос1()
   
   //Текст сформирован автоматически обработкой Универсальная консоль отчетов 2.6.7
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
   |    РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ПериодНачала, ГОД), НАЧАЛОПЕРИОДА(&ПериодКонца, ГОД), ГОД) КАК РазностьЛет";
   //Параметры запроса
   Запрос.УстановитьПараметр("ПериодКонца",ПериодКонца);// Дата
   Запрос.УстановитьПараметр("ПериодНачала",ПериодНачала);// Дата
   Результат = Запрос.Выполнить();

   Возврат Результат;

КонецФункции //ПолучитьРезультатЗапроса_Запрос1

Всех с добрым утром :)

(17) Монстр.

(17) так что там с полными / неполными годами? )))

(10) (13) (17) рабочие варианты

(21) т.е. (17) правильно отрабатывает полные/ неполные года?

(22) Нет он покажет 8

:( хм а я последний не проверял

А теперь вопрос на стотыщ:
А если года високосные? :))))

(25) отстреливать таких деньрожденцев ))

Функция ПолучитьРезультатЗапроса_Запрос1()
   
   //Текст сформирован автоматически обработкой Универсальная консоль отчетов 2.6.7
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
   |    ВЫБОР
   |        КОГДА (ВЫРАЗИТЬ(РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ПериодНачала, ДЕНЬ), КОНЕЦПЕРИОДА(&ПериодКонца, ДЕНЬ), ДЕНЬ) / 365 КАК ЧИСЛО(1, 0))) > РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ПериодНачала, ДЕНЬ), КОНЕЦПЕРИОДА(&ПериодКонца, ДЕНЬ), ДЕНЬ) / 365
   |            ТОГДА РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ПериодНачала, ДЕНЬ), КОНЕЦПЕРИОДА(&ПериодКонца, ДЕНЬ), ДЕНЬ) / 365 - (1- ((ВЫРАЗИТЬ(РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ПериодНачала, ДЕНЬ), КОНЕЦПЕРИОДА(&ПериодКонца, ДЕНЬ), ДЕНЬ) / 365 КАК ЧИСЛО(1, 0))) - РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ПериодНачала, ДЕНЬ), КОНЕЦПЕРИОДА(&ПериодКонца, ДЕНЬ), ДЕНЬ) / 365))
   |        ИНАЧЕ ВЫРАЗИТЬ(РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ПериодНачала, ДЕНЬ), КОНЕЦПЕРИОДА(&ПериодКонца, ДЕНЬ), ДЕНЬ) / 365 КАК ЧИСЛО(1, 0))
   |    КОНЕЦ КАК РазностьЛет";
   //Параметры запроса
   Запрос.УстановитьПараметр("ПериодКонца",ПериодКонца);// Дата
   Запрос.УстановитьПараметр("ПериодНачала",ПериодНачала);// Дата
   Результат = Запрос.Выполнить();

   Возврат Результат;

КонецФункции //ПолучитьРезультатЗапроса_Запрос1

(23) вычеркиваем из монстров )

+(27) а вот этот покажет точную разницу полных лет

+(29) Без поллитры не читать :)

(30) високосные учел?

Функция ПолучитьРезультатЗапроса_Запрос1()
   
   //Текст сформирован автоматически обработкой Универсальная консоль отчетов 2.6.7
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
   |    ВЫРАЗИТЬ(РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ПериодНачала, ДЕНЬ), КОНЕЦПЕРИОДА(&ПериодКонца, ДЕНЬ), ДЕНЬ) / 365 КАК ЧИСЛО(1, 0)) КАК ОкрРазницаЛет,
   |    РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ПериодНачала, ДЕНЬ), КОНЕЦПЕРИОДА(&ПериодКонца, ДЕНЬ), ДЕНЬ) / 365 КАК РазницаЛет
   |ПОМЕСТИТЬ РасчетРазницы
   |;
   |
   |////////////////////////////////////////////////////////////////////////////////
   |ВЫБРАТЬ
   |    ВЫБОР
   |        КОГДА РасчетРазницы.ОкрРазницаЛет > РасчетРазницы.РазницаЛет
   |            ТОГДА РасчетРазницы.РазницаЛет - (1 - (РасчетРазницы.ОкрРазницаЛет - РасчетРазницы.РазницаЛет))
   |        ИНАЧЕ РасчетРазницы.ОкрРазницаЛет
   |    КОНЕЦ КАК РазницаЛет
   |ИЗ
   |    РасчетРазницы КАК РасчетРазницы";
   //Параметры запроса
   Запрос.УстановитьПараметр("ПериодКонца",ПериодКонца);// Дата
   Запрос.УстановитьПараметр("ПериодНачала",ПериодНачала);// Дата
   Результат = Запрос.Выполнить();

   Возврат Результат;

КонецФункции //ПолучитьРезультатЗапроса_Запрос1

Так будет читабельней, високосные учитываются в общей массе дней разницы,

а просто
РАЗНОСТЬДАТ(ПериодНачала, &ПериодКонца,ГОД) КАК РазностьЛет
не работает? )

Работает но там просто происходит 2009-2001=8
там не учитывается что в 2001 был февраль, а в 2009 январь просто даты лет вычитаются....

(32) опять же "/365" а если високосный? :

не пойму чем вам не нравится-то (10) или (13)? погнял (в основном (10) вроде все ОК

а может кто-нибудь здесь подсказать? v8: Доступ к дополнительным свойствам в справочнике УПП

Ну хорошо вот здесь учитываются високосные достаточно точно.

Функция ПолучитьРезультатЗапроса_Запрос1()
   
   //Текст сформирован автоматически обработкой Универсальная консоль отчетов 2.6.7
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
   |    ВЫРАЗИТЬ(РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ПериодНачала, ДЕНЬ), КОНЕЦПЕРИОДА(&ПериодКонца, ДЕНЬ), ДЕНЬ) / 365.25 КАК ЧИСЛО(1, 0)) КАК ОкрРазницаЛет,
   |    РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ПериодНачала, ДЕНЬ), КОНЕЦПЕРИОДА(&ПериодКонца, ДЕНЬ), ДЕНЬ) / 365.25 КАК РазницаЛет
   |ПОМЕСТИТЬ РасчетРазницы
   |;
   |
   |////////////////////////////////////////////////////////////////////////////////
   |ВЫБРАТЬ
   |    ВЫБОР
   |        КОГДА РасчетРазницы.ОкрРазницаЛет > РасчетРазницы.РазницаЛет
   |            ТОГДА РасчетРазницы.РазницаЛет - (1 - (РасчетРазницы.ОкрРазницаЛет - РасчетРазницы.РазницаЛет))
   |        ИНАЧЕ РасчетРазницы.ОкрРазницаЛет
   |    КОНЕЦ КАК РазницаЛет
   |ИЗ
   |    РасчетРазницы КАК РасчетРазницы";
   //Параметры запроса
   Запрос.УстановитьПараметр("ПериодКонца",ПериодКонца);// Дата
   Запрос.УстановитьПараметр("ПериодНачала",ПериодНачала);// Дата
   Результат = Запрос.Выполнить();

   Возврат Результат;

КонецФункции //ПолучитьРезультатЗапроса_Запрос1

(3) хм.. А если 2009.12.01 и 2008.01.01 сработает?

(39) это фигня.. а вот если Дата(2012,12,12) сработает? )

(38) "достаточно точно" надо будет запомнить ))

(40) если это начало периода, то нет :(

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

Интересен случай с 29.02.08 - 28.02.09

(44) имхо в данном варианте год еще не прошел - так как он пройдет 01.03.2009 и рузумеется результат будет 1 год и 1 месяц (должен быть), но в контексте поставленного вопроса (полных лет) - ответ собственно что не прошло полного года

(45) сорри 1 год и 1 день :)