Работа с датой (год, года, лет). НЕLP!

[Алексей_1985_06]

Добрый день! Подскажите как убрать нули (файл во вложении), или может есть более лучший способ как написать количество лет? Конфигурация самописная (8.3. УФ).

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

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

//     ПОМОГИТЕ! ВОТ ЗДЕСЬ ЧТО ТО НУЖНО ДОПИСАТЬ, НЕ МОГУ РАЗОБРАТЬСЯ
Объект.Возраст = Строка(Лет)+ " (" + ЧислоПрописью(Лет, , "год,года,лет, м, , ") + ")";
КонецПроцедуры


[wise]

(0) велосипед УЖЕ изобрели...

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

ЧислоПрописью(ПеременнаяПрописи,,"год,года,лет,м , , , , , 0")

[Алексей_1985_06]

(0) велосипед УЖЕ изобрели...

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

ЧислоПрописью(ПеременнаяПрописи,,"год,года,лет,м , , , , , 0")

Большое спасибо!!!