Сравнить даты

[TataRus]

Добрый день!
Никак не могу додуматься как вытащить из справочника всех детей сотрудников у кого день рождения через +- неделю, если убираю из формата год, потом преобразую в число, ерунда получается. Если через ТЗ делать, то как прийти к одинаковому типу значений? Подскажите, пожалуйста, как лучше сделать, может я вовсе не туда думаю?)

Код Выделить Развернуть

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ДетиСотрудников.Владелец КАК Сотрудник,
| ДетиСотрудников.Ссылка КАК Ребенок,
| ДетиСотрудников.ДатаРождения КАК ДатаРождения
|ИЗ
| Справочник.ДетиСотрудников КАК ДетиСотрудников
|
|СГРУППИРОВАТЬ ПО
| ДетиСотрудников.Владелец,
| ДетиСотрудников.Ссылка,
| ДетиСотрудников.ДатаРождения
|
|УПОРЯДОЧИТЬ ПО
| Сотрудник";

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

ТекДата = НачалоДня(ТекущаяДата());
ТекДатаПлюсНеделя = Формат(ТекДата + 604800, "ДФ = ddMM");
ТекДатаМинусНеделя = Формат(ТекДата - 604800, "ДФ = ddMM");

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

ДатаРождения = Формат(ВыборкаДетальныеЗаписи.ДатаРождения, "ДФ = ddMM");

Если Объект.Праздник = Перечисления.ВидыПраздников.ДеньРождения тогда

Если ДатаРождения <= ТекДатаПлюсНеделя и ДатаРождения >= ТекДатаМинусНеделя тогда 

         НовСтр = Объект.ПодаркиДетямСотрудников.Добавить();
         НовСтр.Сотрудник = ВыборкаДетальныеЗаписи.Сотрудник;
         НовСтр.Ребенок = ВыборкаДетальныеЗаписи.Ребенок;                                 

КонецЕсли;
КонецЕсли;
КонецЦикла

[TataRus]

Сделала так

Код Выделить Развернуть

ТекДата = НачалоДня(ТекущаяДата());
ТекДатаПлюсНеделя = Число(Формат(ТекДата + 604800, "ДФ = MMdd"));
ТекДатаМинусНеделя = Число(Формат(ТекДата - 604800, "ДФ = MMdd"));




Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

ДатаРождения = Число(Формат(ВыборкаДетальныеЗаписи.ДатаРождения, "ДФ = MMdd"));

Если Объект.Праздник = Перечисления.ВидыПраздников.ДеньРождения тогда

Если ДатаРождения <= ТекДатаПлюсНеделя и ДатаРождения >= ТекДатаМинусНеделя тогда 

         НовСтр = Объект.ПодаркиДетямСотрудников.Добавить();
         НовСтр.Сотрудник = ВыборкаДетальныеЗаписи.Сотрудник;
         НовСтр.Ребенок = ВыборкаДетальныеЗаписи.Ребенок;