Добрый день, на просторах интернета что-то не нашел простого и удобоваримого примера для выборки из справочника записей с днями рождения (ДР), которые подпадают под определенные условия, например, ДР, которые начинаются через неделю от тек.даты и продолжаются неделю. В результате пришлось написать самому... Может, кому пригодится, чтобы не тратить время. Использован релиз 8.3.13.1809.
Есть Справочник "Физические лица", есть реквизит "ДатаРождения"
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ФизическиеЛица.Фамилия КАК Фамилия,
| ФизическиеЛица.Имя КАК Имя,
| ФизическиеЛица.Отчество КАК Отчество,
| ФизическиеЛица.ДатаРождения КАК ДатаРождения,
|ИЗ
| Справочник.ФизическиеЛица КАК ФизическиеЛица
|ГДЕ
| ФизическиеЛица.ДатаРождения <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
| И ВЫБОР
| КОГДА МЕСЯЦ(ФизическиеЛица.ДатаРождения) - МЕСЯЦ(&ТекДата) >= 0
| ТОГДА ДЕНЬГОДА(ФизическиеЛица.ДатаРождения) - ДЕНЬГОДА(&ТекДата) < 14
| КОГДА МЕСЯЦ(&ТекДата) = 12
| ТОГДА ДЕНЬГОДА(ФизическиеЛица.ДатаРождения) + &ПослДень - ДЕНЬГОДА(&ТекДата) < 14
| КОНЕЦ
| И ВЫБОР
| КОГДА МЕСЯЦ(ФизическиеЛица.ДатаРождения) - МЕСЯЦ(&ТекДата) >= 0
| ТОГДА ДЕНЬГОДА(ФизическиеЛица.ДатаРождения) - ДЕНЬГОДА(&ТекДата) >= 7
| КОГДА МЕСЯЦ(&ТекДата) = 12
| ТОГДА ДЕНЬГОДА(ФизическиеЛица.ДатаРождения) + &ПослДень - ДЕНЬГОДА(&ТекДата) >= 7
| КОНЕЦ";
Запрос.УстановитьПараметр("ПослДень", ДеньГода(Дата(Год(ТекущаяДата()),12,31)));
Запрос.УстановитьПараметр("ТекДата", ТекущаяДата());
ДниРождения = Запрос.Выполнить().Выгрузить();
Как видно из текста, запрос учитывает високосный год и переход через новый год.
Интервал выборки периода определяется цифрами 7 и 14 - естественно, они могут быть другими или определяться через параметры.
Не против, если кто-то предложит доработку для более универсального решения.
Вступайте в нашу телеграмм-группу Инфостарт