Каталог решений - Пятница 13

Захотелось узнать когда будет в следующий раз такая знаменательная дата. В результате родился небольшой запросик, который выводит все «Пятницы 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
ИТОГИ ПО
	Годы