Вывести дату рождения прописью

[Артём Сурмин]

Есть задача ,пользователь вводит дату рождения ,а нужно вывести в сообщение  число полных лет (прописью) у меня проблема , не могу сделать окончания ...лет или ..года .. год хелпаниет плз

&НаКлиенте
Процедура ДатаПрописью (Команда)
   
      Если ЗначениеЗаполнено(Объект.ДатаРождения)Тогда
      
      ДатаТекущая = Год(ТекущаяДата())*10000 + Месяц(ТекущаяДата())*100+День(ТекущаяДата());
      ДатаИскомая = Год(Объект.ДатаРождения)*10000 + Месяц(Объект.ДатаРождения)*100+День(Объект.ДатаРождения);   
      ЧислоЛет = Цел((ДатаТекущая-ДатаИскомая)/10000);
      
      ПолныхЛет = ЧислоПрописью(ЧислоЛет,"НП=Ложь",",,,,,,,,0");
      
      Сообщить("Ваш возраст" + " " + ПолныхЛет);
      
   Иначе 
      
      Отказ = Истина;
      Сообщить("Вы не указали дату рождения");
      
   КонецЕсли;
   
КонецПроцедуры

[antoneus]

Код Выделить Развернуть

ЧислоПрописью(ЧислоЛет,"НП=Истина","год, года, лет,,,,,, 0")

[Артём Сурмин]

antoneus,  уже сделал так сам) но там проблема не выводит год . ввожу дату 11.01.2019 получу "Ваш возраст Один"

[antoneus]

А у меня работает, странно) Форматная строка "НП=Истина", точно?