Захотелось узнать когда будет в следующий раз такая знаменательная дата. В результате родился небольшой запросик, который выводит все "Пятницы 13" до 2040 года. Если точнее, то рассчитываются даты на 9999 дней вперед. В результате выяснилось, что следующая пятница будет 13.02.2015, а максимальное количество "Пятниц 13" в году 3. Собственно запрос приведен ниже.
ВЫБРАТЬ
0 КАК Р
ПОМЕСТИТЬ Разряды
ОБЪЕДИНИТЬ
ВЫБРАТЬ
1
ОБЪЕДИНИТЬ
ВЫБРАТЬ
2
ОБЪЕДИНИТЬ
ВЫБРАТЬ
3
ОБЪЕДИНИТЬ
ВЫБРАТЬ
4
ОБЪЕДИНИТЬ
ВЫБРАТЬ
5
ОБЪЕДИНИТЬ
ВЫБРАТЬ
6
ОБЪЕДИНИТЬ
ВЫБРАТЬ
7
ОБЪЕДИНИТЬ
ВЫБРАТЬ
8
ОБЪЕДИНИТЬ
ВЫБРАТЬ
9
;
////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
ДОБАВИТЬКДАТЕ(НАЧАЛОПЕРИОДА(&ДатаНачала, ДЕНЬ), ДЕНЬ, Единицы.Р + Десятки.Р * 10 + Сотни.Р * 100 + Тысячи.Р * 1000) КАК ТекущаяДата
ПОМЕСТИТЬ ТаблицаДат
ИЗ
Разряды КАК Единицы,
Разряды КАК Сотни,
Разряды КАК Десятки,
Разряды КАК Тысячи
;
////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
ТаблицаДат.ТекущаяДата КАК Пятница_13,
ГОД(ТаблицаДат.ТекущаяДата) КАК Годы
ИЗ
ТаблицаДат КАК ТаблицаДат
ГДЕ
ДЕНЬНЕДЕЛИ(ТаблицаДат.ТекущаяДата) = 5
И ДЕНЬ(ТаблицаДат.ТекущаяДата) = 13
УПОРЯДОЧИТЬ ПО
Годы,
Пятница_13
ИТОГИ ПО
Годы