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

Лучше выбирать запросом и возвращать ссылки, а не ФИО

Ещё понадобится добавить условие на Статус=Работает

а код можете написать, пожалуйста, не совсем понял как сделать

(3) Запросы начинаются со слова ВЫБРАТЬ

(0) Кстати, у Вас в этом коде нет вывода информации в окно сообщений, поэтому ничего не выводится. Код выглядит работающим, но плохим.

(0) Найди Консоль на просторах интернета , запрос сделать тут не долго, в вашем случае

(5) а можете написать пожалуйста цельный код, очень срочно нужно, буду очень благодарен)

(7) Вам нужно попробовать самому. Мы Вам поможем

(8) код для вывода в окно информации нужно писать в молуль управляемого приложения

(9) Ну надо, так надо

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

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

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

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

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

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

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

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

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

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

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

                        КонецЕсли;    

            КонецЦикла;

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

(10) что не верно?

(12) Да всё нормально вроде. Может справочник пустой или именинников нет?

(13) всё нашёл в чём проблема, спасибо большое

(14) Нам скажите, пожалуйста

Возможно функция запускается в фоновом режиме. Тоже недавно с таким столкнулся. Только я работал в РежимОтладки и у меня выводила, а у пользователя обычный режим. Спасибо добрым людям - подсказали.))))