Подстановка в значение возраста (год, года, лет)

[Алексей_1985_06]

Знатоки, подскажите как сделать чтоб в реквизите "возраст" в зависимости от количества лет, делалась запись: год, года, лет... Например 21 год, 24 года, 18 лет и т.п
Конфигурация самописная, УФ 8.3

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

&НаКлиенте
Процедура  РасчетВозраста ()
Лет = 0;
Месяцев = 0;
Дней = 0;
ДатаРождения = Объект.ДатаРождения; 
Пока ДатаРождения <= ТекущаяДата() Цикл
ДатаРождения = ДобавитьМесяц(ДатаРождения,1);
Месяцев = Месяцев + 1;
КонецЦикла;
Месяцев = Месяцев-1;
Лет = Цел(Месяцев/12);
Месяцев = Месяцев-Лет*12;
Дней = Цел((ТекущаяДата() - ДобавитьМесяц(ДатаРождения,-1))/86400);
Объект.Возраст = Строка (Лет);
КонецПроцедуры


[bsn-chita]

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


КоличествоЛет = 1;
Сообщить(СтрокаСЧислом(";%1 год;;%1 года;%1 лет;", КоличествоЛет, ВидЧисловогоЗначения.Количественное, "L=ru"));