Нужно сделать расчет возроста сотрудника

"ДобрыйДень.Задача состоит в следующем: В справочник сотрудники документом "ПриемНаРаботу" вводится дата рождения сотрудника "ДатаРождения". Необходимо чтобы при проведении документа "НачалоМесяца" расчитывался возраст сотрудника и записывался в СпрСотрудники.
В модуле док "НачалоМесяца" написал процедуру:
//Расчитывает возраст сотрудника и записывает в справочик Сотрудники
Процедура Возраст()

СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
ДР = СпрСотр.ДатаРождения;
СкЛет = ДатаГод(ТекущаяДата()) - ДР;
Если ДатаМесяц(ДР) <= ДатаМесяц(ТекущаяДата()) Тогда
Если ДатаЧисло(ДР) <= ДатаЧисло(ТекущаяДата()) Тогда
СпрСотр.Возраст = СкЛет;
Иначе
СпрСотр.Возраст = СкЛет - 1;
КонецЕсли;
Иначе
СпрСотр.Возраст = СкЛет - 1;
СпрСотр.Записать();
КонецЕсли;
КонецПроцедуры

по сути правильно но не работает где ошибка не разбирусь ни как???? "