---

Модуль управляемого приложения:
Процедура ПриНачалеРаботыСистемы()
	
	Сообщить("Сегодня " + ТекущаяДата());
	
	СписокИменинников = ОбщиеМеханизмы.ПолучитьСписокИменинников();
	
	Для Каждого Именинник Из СписокИменинников Цикл
		Сообщить("Сегодня День рождения у " + Именинник);
	КонецЦикла;
	
КонецПроцедуры

Общий модуль «ОбщиеМеханизмы»
Функция ПолучитьСписокИменинников() Экспорт
	
	ТД_День = День(ТекущаяДата());
	ТД_Месяц = Месяц(ТекущаяДата());
	
	Мас = Новый Массив;
	
	Выборка = Справочники.Сотрудники.Выбрать();
	
	Пока Выборка.Следующий() Цикл
		
		ДР_День = День(Выборка.ДатаРождения);
		ДР_Месяц = Месяц(Выборка.ДатаРождения);
		
		Если ДР_День = ТД_День И ДР_Месяц = ТД_Месяц Тогда
			Мас.Добавить(Выборка.Наименование);
		КонецЕсли;
		
	КонецЦикла;
	
	Возврат Мас;
	
КонецФункции