Загрузка данных

Функция ВозрастПациента(ДатаРождения)

    Возраст = Год(ТекущаяДата()) - Год(ДатаРождения);

    Возврат Возраст;

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


Процедура ТестВозрастПациента() Экспорт

    ДатаРождения = Дата(2000, 1, 1);

    Возраст = ВозрастПациента(ДатаРождения);

    Если Возраст > 0 Тогда
        Сообщить("Тест пройден");
    Иначе
        Сообщить("Тест не пройден");
    КонецЕсли;

КонецПроцедуры