Определить сколько выходных дней прошло между двумя датами

@Artur zhitkovic · Регистрация: 24.10.2014

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

Определить сколько выходных дней прошло между двумя датами.
Как определить кол-во всех дней между двумя датами я знаю DateDiff(interval,date1,date2)

Но как найти именно выходные??

@Казанский · 10.12.2016, 20:20

Artur zhitkovic, можно тупо пробежать циклом от date1+1 до date2-1 и проверять weekday.
Можно хитрее - определить количество полных недель (в каждой гарантированно два выходных), а оставшиеся дни неполной недели проверить weekday.

@snipe · 10.12.2016, 21:46

чета вот такая функция получилась

Visual Basic

Public Function CountWeekends(StartDate As Date, EndDate As Date) As Long
Dim EndOfWeek As Date: Dim EndOfWeek1 As Date
EndOfWeek1 = StartDate - Weekday(StartDate, 2) + 7
EndOfWeek = EndDate - Weekday(EndDate, 2) + 7
If EndOfWeek = EndDate Then
ElseIf EndOfWeek - EndDate = 1 Then
        CountWeekends = -1
    Else
        EndOfWeek = EndDate - Weekday(EndDate, 2)
End If
If StartDate - EndOfWeek1 < 0 Then CountWeekends = CountWeekends + 1
CountWeekends = CountWeekends + (EndOfWeek - EndOfWeek1) * 2 / 7 + 1
End Function

@Artur zhitkovic 15 / 2 / 1 Регистрация: 24.10.2014 Сообщений: 106
		1
	Определить сколько выходных дней прошло между двумя датами 10.12.2016, 19:23. Показов 2505. Ответов 2 Метки нет (Все метки) Определить сколько выходных дней прошло между двумя датами. Как определить кол-во всех дней между двумя датами я знаю DateDiff(interval,date1,date2) Но как найти именно выходные?? 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	10.12.2016, 20:20	2
	Artur zhitkovic, можно тупо пробежать циклом от date1+1 до date2-1 и проверять weekday. Можно хитрее - определить количество полных недель (в каждой гарантированно два выходных), а оставшиеся дни неполной недели проверить weekday. 1

	10.12.2016, 21:46