Найти выходные за период в разрезе месяца

@schapovalov1991 · Регистрация: 03.12.2015

Студворк — интернет-сервис помощи студентам

На компьютере:
XE2, MsSQL
Таблица:
Jornal
Колонки:
ID, Data,Name
Задача:
Нужно создaть SQL зaпрос кoтoрый рaссчитаeт кoличество выхoдных днeй (все суббoты и вoскрeсeния) в разрезе мeсяца за тeкущий гoд/
Ответ нужно записать в DBEdit1 или в Диалоговое окно

Нf данные момент вообще ничего не делает(((

Delphi
1
2
3
4
 ADOQuery2.Close;                // DATEDIFF ( datepart , startdate , enddate )')
 ADOQuery2.SQL.Clear;
 ADOQuery2.SQL.Add('SELECT  DATEDIFF ( week  , "2017-04-14" , "2017-12-31" )');
 ADOQuery2.ExecSQL;

@YuryK · 14.04.2017, 07:36

Сообщение от schapovalov1991

Нf данные момент вообще ничего не делает(((

на данный момент его ничего не просят сделать. Даже если бы запрос и выполнился, то что даст количество недель в некотором интервале?

Добавлено через 1 минуту

Сообщение от schapovalov1991

кoличество выхoдных днeй (все суббoты и вoскрeсeния) в разрезе мeсяца за тeкущий гoд

месяц как резать будем? может лучше нарисуете, что получить хотите?

Добавлено через 37 минут

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
DECLARE @Today datetime
SET @Today = CAST(FLOOR(CAST(GetDate() AS FLOAT)) AS datetime)
DECLARE @Month01 datetime
SET @Month01 = DATEADD(DAY, -DAY(@Today) + 1, @Today)
DECLARE @Jan01 datetime
SET @Jan01 = DATEADD(MONTH, -MONTH(@Month01) + 1, @Month01)
 
 
SELECT mm, 
  8 +
  CASE WHEN MONTH(d29) = mm AND datepart(weekday, d29) IN (1, 7) THEN 1 ELSE 0 END +
  CASE WHEN MONTH(d30) = mm AND datepart(weekday, d30) IN (1, 7) THEN 1 ELSE 0 END +
  CASE WHEN MONTH(d31) = mm AND datepart(weekday, d31) IN (1, 7) THEN 1 ELSE 0 END
FROM (
SELECT mm, DateAdd(DAY, 28, d01) d29, DateAdd(DAY, 29, d01) d30 , DateAdd(DAY, 30, d01) d31  
FROM (
  SELECT mm, DateADD(MONTH, (mm-1), @Jan01) d01 
  FROM (
    SELECT 1 mm UNION SELECT 2 UNION SELECT 3 UNION SELECT 4 UNION 
    SELECT 5 UNION SELECT 6 UNION SELECT 7 UNION SELECT 8 UNION 
    SELECT 9 UNION SELECT 10 UNION SELECT 11 UNION SELECT 12
  ) mm 
) m
) d2931

1	9
2	8
3	8
4	10
5	8
6	8
7	10
8	8
9	9
10	9
11	8
12	10

Праздничные дни и связанные с ними переносы не учитывались

@schapovalov1991 · 14.04.2017, 18:51 **[ТС]**

Благодарю за ответ, а можно не много прокомментировать код, а то возникают вопросы.
В частности строки: 2,4,11,15,17

@YuryK · 15.04.2017, 01:12

SQL
1
SET @Today = CAST(FLOOR(CAST(GetDate() AS FLOAT)) AS datetime)

из сегодняшней даты со временем получаем сегодняшнюю дату без времени,
преобразуя дату в число CAST(GetDate() AS FLOAT, что в принципе несложно т.к. дата в виде такого числа и хранится,т.е. это просто приведение типа

округляя до ближайшего целого FLOOR(...)
и приводя обратно к дате CAST(... AS DATE TIME)

SQL
1
SET @Month01 = DATEADD(DAY, -DAY(@Today) + 1, @Today)

получаем 1 апреля, отнимая от сегодняшней даты на 1 день меньше, чем сегодняшнее число

SQL
1
SET @Jan01 = DATEADD(MONTH, -MONTH(@Month01) + 1, @Month01)

получаем 1 января, отнимая от 1 апреля месяцесв на 1 меньше, чем текущий

Итак, получили 1 января текущего года с помощью имеющихся datetime функций

SQL
1
2
3
4
5
6
SELECT mm, DateADD(MONTH, (mm-1), @Jan01) d01 
  FROM (
    SELECT 1 mm UNION SELECT 2 UNION SELECT 3 UNION SELECT 4 UNION 
    SELECT 5 UNION SELECT 6 UNION SELECT 7 UNION SELECT 8 UNION 
    SELECT 9 UNION SELECT 10 UNION SELECT 11 UNION SELECT 12
  ) mm

к дате 1 января прибавляем от 0 до 11 месяцев получаем 12 месяцев и их первое число

1	2017-01-01 00:00:00.000
2	2017-02-01 00:00:00.000
...	...
11	2017-11-01 00:00:00.000
12	2017-12-01 00:00:00.000

SQL
1
2
3
4
SELECT mm, DateAdd(DAY, 28, d01) d29, DateAdd(DAY, 29, d01) d30 , DateAdd(DAY, 30, d01) d31  
FROM (
  ...
) m

получаем столбцы с 29, 30 и 31 числа "каждого" месяца прибавляя соответственно 28, 29 и 30 дней к 1-му числу месяца

1	2017-01-29	2017-01-30	2017-01-31
2	2017-03-01	2017-03-02	2017-03-03
3	2017-03-29	2017-03-30	2017-03-31
4	2017-04-29	2017-04-30	2017-05-01
...	...	...	...

естественно, это может оказаться и не 31 число этого месяца, а первое следующего, поэтому мы учтем этот день, если он суббота или воскресенье datepart(weekday, d31) IN (1, 7) и относится к этому же месяцу MONTH(d31) = mm
Все это относится и к 29 и 30 числам месяца. Ну а с первыми 28 числами месяца все просто - это ровно 4 недели, в которых ровно 4 субботы и 4 воскресенья

SQL
1
2
3
4
5
6
7
8
SELECT mm, 
  8 +
  CASE WHEN MONTH(d29) = mm AND datepart(weekday, d29) IN (1, 7) THEN 1 ELSE 0 END +
  CASE WHEN MONTH(d30) = mm AND datepart(weekday, d30) IN (1, 7) THEN 1 ELSE 0 END +
  CASE WHEN MONTH(d31) = mm AND datepart(weekday, d31) IN (1, 7) THEN 1 ELSE 0 END
FROM (
...
) d2931

Новые блоги и статьи Все статьи Все блоги /
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .

@schapovalov1991 0 / 0 / 0 Регистрация: 03.12.2015 Сообщений: 42
	14.04.2017, 18:51 [ТС]
	Благодарю за ответ, а можно не много прокомментировать код, а то возникают вопросы. В частности строки: 2,4,11,15,17 0