Функция «Список именинников»

Функция СписокИменинников () Экспорт

            Сегодня_День = День(ТекущаяДата());

            Сегодня_Месяц = Месяц(ТекущаяДата());

            Выборка = Справочники.Сотрудники.Выбрать();

            Массив = Новый Массив();

            Пока Выборка.Следующий() Цикл

                        ДР_День=День(Выборка.ДатаРождения);

                        ДР_Месяц=Месяц(Выборка.ДатаРождения);

                        Если Сегодня_День=ДР_День И

                                    Сегодня_Месяц=ДР_Месяц Тогда

                                    Массив.Добавить(Выборка.Наименование);

                        КонецЕсли;     

            КонецЦикла;

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

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

Процедура ПриНачалеРаботыСистемы()

            СписокИменинников = ОбщиеМеханизмы.СписокИменинников();

            Для Каждого ЭлементМассива Из СписокИменинников Цикл

                        Сообщить(ЭлементМассива);

            КонецЦикла;               

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