Определить возраст по дате рождения

Для печатных форм или документов может потребоваться расчет возраста по дате рождения. Данный алгоритм можно реализовать стандартными средствами языка программирования.

Функция позволяет рассчитать сколько полных лет прошло с даты рождения.

Функция ВычислитьВозраст()

	Возраст = Год(Текущаядата()) - Год(ДатаРождения);	
	
	ДеньТекущий = День(Текущаядата());
	МесяцТекущий = Месяц(ТекущаяДата());
	
	ДеньРождения = День(ДатаРождения);
	МесяцРождения = Месяц(ДатаРождения);
	
	Если МесяцРождения < МесяцТекущий ИЛИ (МесяцРождения = МесяцТекущий И ДеньРождения > ДеньТекущий) Тогда
		
		Возраст = Возраст - 1;

	КонецЕсли;
	
	Возврат Возраст;	

КонецФункции 

Функция ВозрастПрописью(Возраст)

	Параметры = "год, года, лет, м,,,,,0";	
	Пропись = ЧислоПрописью(Возраст,, Параметры);
	Возврат Пропись;
	
КонецФункции