Неправильно считает возраст в СКД

[Алексей_1985_06]

Всем привет! Подскажите в чем может быть ошибка:
1. Есть процедура в общем модуле (расчет возраста сотрудника)

Код: [Выделить]

Функция ВозрастСотрудника(ДатаРождения) Экспорт 
	Если ДатаРождения <> '00010101000000' Тогда // Проверка на пустую дату
	ДатаТекущая = Год(ТекущаяДата())*10000 + Месяц(ТекущаяДата())*100 + День(ТекущаяДата());
	ДатаИскомая = Год(ДатаРождения)*10000 + Месяц(ДатаРождения)*100 + День(ДатаРождения);   
	КоличествоЛет = Цел((ДатаТекущая-ДатаИскомая)/10000);  
	Возраст = СтрокаСЧислом("; %1 год;; %1 года; %1 лет;", КоличествоЛет, ВидЧисловогоЗначения.Количественное, "L=ru");	
	Возврат (Возраст)
	КонецЕсли;
КонецФункции

2. В СКД создал вычисляемое поле "Возраст" Выражение: ВызовСервера.ВозрастСотрудника (Сотрудник.ДатаРождения)
Но почему-то расчет возраста сотрудника (у которого дата рождения отсутствует) все равно происходит...неправильно (скрин во вложении)
Подскажите в чем "затыка" ?

[LexaK]

попробуйте так

Код: [Выделить]

Функция ВозрастСотрудника(ДатаРождения) Экспорт 
	
	Если ЗначениеЗаполнено(ДатаРождения) Тогда // Проверка на пустую дату
    	ДатаТекущая = Год(ТекущаяДата())*10000 + Месяц(ТекущаяДата())*100 + День(ТекущаяДата());
    	ДатаИскомая = Год(ДатаРождения)*10000 + Месяц(ДатаРождения)*100 + День(ДатаРождения);   
    	КоличествоЛет = Цел((ДатаТекущая-ДатаИскомая)/10000);  
    	Возраст = СтрокаСЧислом("; %1 год;; %1 года; %1 лет;", КоличествоЛет, ВидЧисловогоЗначения.Количественное, "L=ru");    
	Иначе
		Возраст = "<Нет даты рождения>";
	КонецЕсли;
	
    Возврат Возраст;
	
КонецФункции

[Алексей_1985_06]

попробуйте так

Код: [Выделить]

Функция ВозрастСотрудника(ДатаРождения) Экспорт 
	
	Если ЗначениеЗаполнено(ДатаРождения) Тогда // Проверка на пустую дату
    	ДатаТекущая = Год(ТекущаяДата())*10000 + Месяц(ТекущаяДата())*100 + День(ТекущаяДата());
    	ДатаИскомая = Год(ДатаРождения)*10000 + Месяц(ДатаРождения)*100 + День(ДатаРождения);   
    	КоличествоЛет = Цел((ДатаТекущая-ДатаИскомая)/10000);  
    	Возраст = СтрокаСЧислом("; %1 год;; %1 года; %1 лет;", КоличествоЛет, ВидЧисловогоЗначения.Количественное, "L=ru");    
	Иначе
		Возраст = "<Нет даты рождения>";
	КонецЕсли;
	
    Возврат Возраст;
	
КонецФункции

LexaK что бы я без Вас делал..... Очередной раз ОГРОМНОЕ ВАМ СПАСИБО ЗА ПОМОЩЬ !!!