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

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