gifts2017

Пятница 13

Опубликовал ediks (ediks) в раздел Программирование - Практика программирования

Пятницей 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
ИТОГИ ПО
	Годы

См. также

Подписаться Добавить вознаграждение

Комментарии

1. www witalit (wtlz) 14.06.14 00:05
2. Rus Fra (siggoron) 14.06.14 03:27
Замечательный день!!! Верить в приметы это выбор индивидуальный, так верте в то что приносит улыбку на лица;)
3. Владислав Чинючин (vcv) 14.06.14 20:53
Следующая пятница, 13 будет "15.02.2015" :)
это запрос так выдал?
4. Программулькин (Программулькин) 15.06.14 03:17
(2) siggoron, Вы узко мыслите.
(3) vcv, хмм... Прикольная критика опечатки автора, поржал.
В целом прикольный алгоритм.
5. ediks (ediks) 15.06.14 16:37
(3),(4) Действительно, прикольно получилось
6. Андрей Акулов (DrAku1a) 18.06.14 02:32
...
ИТОГИ
	КОЛИЧЕСТВО(РАЗЛИЧНЫЕ Пятница_13)
ПО
	Годы
...Показать Скрыть
7. ediks (ediks) 18.06.14 09:49
(6) Можно и так (а можно просто использовать группировку), но мне хотелось увидеть в виде дерева.
Прикрепленные файлы:
8. Алексей Карвацкий (AVK_Alex) 18.06.14 15:22
Что только люди не делают в пятницу 13, только чтобы не подвергать себя и окружающих риску на работе :)
9. Павел (Yimaida) 20.06.14 10:42
Хороший пример, как можно использовать таблицу дат. Я давно себе пометил этот (Таблица дат) запросик.
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа