Подсчет выходных между двумя датами

@Tapochek1975 · Регистрация: 29.10.2010

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

Пожалуйста, чайник я пока.
Делаю базу для учета своей работы.
Есть форма где я заполняю сведения о командировках. Есть дата начала командировки и дата окончания командировки. Для подсчета работы в выходные дни надо вычислить сколько в командировках было выходных дней. Сделал запрос на основании него отчет. Все хорошо за исключением тех случаев когда одна командировка перекрывает несколько выходных дней. Строчка о том, что это была за командировка есть, что она была в выходные зафиксировано с помощью функции Weekday, но вот вычислить сколько именно было выходных дней за эту командировку не могу.
А если кто подскажет, как календарь праздников суда замутить, вообще буду считать своим учителем

Пожалуйста кто может помогите.

@minob · 25.04.2012, 22:22

Если есть таблица - календарь праздников, в который входят и выходные, на которые не перенесены рабочие дни, тогда количество выходных+праздников можно рассчитать так

Visual Basic

1
2
3

DCount("*","Таблица_праздников","дата_таблицы Between " & _
           Format(Forms!Командировки![дата начала],"\#mm\/dd\/yyyy\#") & " And " & _
           Format(Forms!Командировки![дата окончания],"\#mm\/dd\/yyyy\#"))

@Tapochek1975 · 25.04.2012, 22:37 **[ТС]**

Завтра попробую помучать этот вариант. Но тогда придется делать таблицу дней в году с перечислением всех выходных. Такую таблицу можно как то легко заполнять автоматически.

@minob · 26.04.2012, 01:05

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

Но тогда придется делать таблицу дней в году с перечислением всех выходных.

В предыдущем сообщении я упомянул о том, что не всякие выходной день может быть выходным, так как на него может быть перенесен рабочий день. Поэтому выходные тоже нужно показывать.

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

Такую таблицу можно как то легко заполнять автоматически.

Конечно. В цикле пройтись от какой-то начальной даты, до некой конечной и , если текущая дата попадает (функция WeekDay), например, на субботу или воскресенье, помещать ее в таблицу. Затем вручную проставить даты праздников и по мере наступления определенных событий (например, перенос рабочих дней) корректировать календарь.

Добавлено через 1 час 59 минут
Подумал и пришел к выводу, что достаточно иметь таблицу Holidays с полями dat (тип Дата/время) и hw (тип Логический), в которой будут содержаться даты праздников, отличные от выходных, и только те выходные, на которые переносятся рабочие дни. Первые в логическом поле имеют значение True, а вторые - False. Количество выходных+праздников за период [дата начала], [дата окончания] можно найти запросом

T-SQL

PARAMETERS [дата начала] Date, [дата окончания] Date;
SELECT Count(*) As выходных FROM
(SELECT (D2.digit & D1.digit & D0.digit)+[дата начала] AS d
FROM Digits AS D0, Digits AS D1, Digits AS D2) As Q
LEFT JOIN Holidays On Q.d = Holidays.dat
WHERE d<=[дата окончания] And (hw OR (WeekDay(d,2) In (6,7) And (dat Is Null Or hw)))

где Digits - сохраненный запрос (использованы материалы с SQL.RU, автор запроса Digits, а также его применения BoNiM)

T-SQL

SELECT TOP 1 0 AS digit FROM MSysObjects
UNION All
SELECT TOP 1 1 FROM MSysObjects
UNION All 
SELECT TOP 1 2 FROM MSysObjects
UNION All
SELECT TOP 1 3 FROM MSysObjects
UNION All
SELECT TOP 1 4 FROM MSysObjects
UNION All
SELECT TOP 1 5 FROM MSysObjects
UNION All
SELECT TOP 1 6 FROM MSysObjects
UNION All
SELECT TOP 1 7 FROM MSysObjects
UNION All
SELECT TOP 1 8 FROM MSysObjects
UNION ALL 
SELECT TOP 1 9 FROM MSysObjects

Вместо запроса Digits можно использовать одноименную таблицу, единственное поле digit которой следует заполнить цифрами от 0 до 9.

@Tapochek1975 · 02.05.2012, 23:32 **[ТС]**

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

В цикле пройтись от какой-то начальной даты, до некой конечной и , если текущая дата попадает (функция WeekDay), например, на субботу или воскресенье, помещать ее в таблицу. Затем вручную проставить даты праздников и по мере наступления определенных событий (например, перенос рабочих дней) корректировать календарь.

А можно про цикл по подробнее? В чем это делается и как выглядит? Как в это цикле функция будет вытягивать и вставлять в таблицу?

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

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

PARAMETERS [дата начала] Date, [дата окончания] Date; SELECT Count(*) As выходных FROM (SELECT (D2.digit & D1.digit & D0.digit)+[дата начала] AS d FROM Digits AS D0, Digits AS D1, Digits AS D2) As Q LEFT JOIN Holidays On Q.d = Holidays.dat WHERE d<=[дата окончания] And (hw OR (WeekDay(d,2) In (6,7) And (dat Is Null Or hw)))

А что это за параметры D0 digit, D1 digit, D2 Digit/// Они при запуске запроса, после ввода начальной и конечной даты, требуют ввестись. Что надо вводить?

@minob · 02.05.2012, 23:58

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

А можно про цикл по подробнее? В чем это делается и как выглядит? Как в это цикле функция будет вытягивать и вставлять в таблицу?

Коль задаете такие вопросы, то все предыдущее вам на пользу не пошло, в силу непонимания. Поэтому читайте учебники, посещайте курсы, смотрите видеокурсы, т.к., имхо, считаю, что форум - не место для обучения азам программированя, тем более для пересказа учебников, содержащих не одну сотню страниц.

Последнее, чем могу вам помочь, это еще одним вариантом вычисления выходных/рабочих дней за период с помощью функции, которую следует поместить в общий модуль.

Visual Basic

Public Function FHldWrk2&(hw As Boolean, dat_beg As Date, dat_end As Date)
'hw - если True, то вычисляется количество выходных, если False - количество рабочих
'dat_beg - начальная дата периода
'dat_end - конечная дата периода
Dim sq$, fl%, d As Date
  sq = "SELECT * FROM Holidays WHERE dat Between " & Format(dat_beg, "\#mm\/dd\/yyyy\#") & _
               " And " & Format(dat_end, "\#mm\/dd\/yyyy\#") & " ORDER BY dat"
  With CurrentDb.OpenRecordset(sq, dbOpenSnapshot)
    For d = dat_beg To dat_end
      fl = Not .EOF: If fl Then fl = (d = !dat): If fl Then fl = fl + !hw
      FHldWrk2 = FHldWrk2 - ((fl = -2) Or (Weekday(d, 2) >= 6 And fl <> -1))
      If fl Then .MoveNext
    Next
    .Close
  End With
  If Not hw Then FHldWrk2 = dat_end - dat_beg + 1 - FHldWrk2
End Function

Функция использует таблицу Holidays, описанную в предыдушем моем сообщении.

Надеюсь, вызов функции в нужном месте и передачу ей фактических параметров осилите.

@Tapochek1975 0 / 0 / 0 Регистрация: 29.10.2010 Сообщений: 15
		1
	Подсчет выходных между двумя датами 25.04.2012, 22:03. Показов 6357. Ответов 5 Метки нет (Все метки) Пожалуйста, чайник я пока. Делаю базу для учета своей работы. Есть форма где я заполняю сведения о командировках. Есть дата начала командировки и дата окончания командировки. Для подсчета работы в выходные дни надо вычислить сколько в командировках было выходных дней. Сделал запрос на основании него отчет. Все хорошо за исключением тех случаев когда одна командировка перекрывает несколько выходных дней. Строчка о том, что это была за командировка есть, что она была в выходные зафиксировано с помощью функции Weekday, но вот вычислить сколько именно было выходных дней за эту командировку не могу. А если кто подскажет, как календарь праздников суда замутить, вообще буду считать своим учителем Пожалуйста кто может помогите. 0

@Tapochek1975 0 / 0 / 0 Регистрация: 29.10.2010 Сообщений: 15
	25.04.2012, 22:37 [ТС]	3
	Завтра попробую помучать этот вариант. Но тогда придется делать таблицу дней в году с перечислением всех выходных. Такую таблицу можно как то легко заполнять автоматически. 0

@Tapochek1975 0 / 0 / 0 Регистрация: 29.10.2010 Сообщений: 15
	02.05.2012, 23:32 [ТС]	5
	Сообщение от minob В цикле пройтись от какой-то начальной даты, до некой конечной и , если текущая дата попадает (функция WeekDay), например, на субботу или воскресенье, помещать ее в таблицу. Затем вручную проставить даты праздников и по мере наступления определенных событий (например, перенос рабочих дней) корректировать календарь. А можно про цикл по подробнее? В чем это делается и как выглядит? Как в это цикле функция будет вытягивать и вставлять в таблицу? Добавлено через 27 минут Сообщение от minob PARAMETERS [дата начала] Date, [дата окончания] Date; SELECT Count() As выходных FROM (SELECT (D2.digit* & D1.digit & D0.digit)+[дата начала] AS d FROM Digits AS D0, Digits AS D1, Digits AS D2) As Q LEFT JOIN Holidays On Q.d = Holidays.dat WHERE d<=[дата окончания] And (hw OR (WeekDay(d,2) In (6,7) And (dat Is Null Or hw))) А что это за параметры D0 digit, D1 digit, D2 Digit/// Они при запуске запроса, после ввода начальной и конечной даты, требуют ввестись. Что надо вводить? 0

	02.05.2012, 23:58