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

[Алексей_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 что бы я без Вас делал..... Очередной раз ОГРОМНОЕ ВАМ СПАСИБО ЗА ПОМОЩЬ !!!