Определите даты определенного дня недели заданного месяца и года

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

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

Определите даты определенного дня недели заданного месяца и года.

~~Shersh~~ · 22.10.2016, 16:25

Зачем?

mobile · 22.10.2016, 20:35

Вывод в Immediate всех дат заданного дня недели для выбранных месяца и года

Visual Basic

Sub dateWeek(god, mes, w)
    Dim w1, fday, lastday, dateW, k
    fday = DateSerial(god, mes, 1)
    w1 = Weekday(fday, vbMonday)
    lastday = DateSerial(god, mes + 1, 0)
    If w1 <= w Then k = w - w1 Else k = 7 - (w1 - w)
    For dateW = fday + k To lastday Step 7
        Debug.Print dateW 
    Next
End Sub

@MU-GK · 03.06.2017, 22:22

Я не знаю, что Вас интересует, но текст взят по указанному Вами линку.

То, что Вы называете «мусор» это исходные данные.
Констатируется факт искажения исходных данных.

@Artur zhitkovic 15 / 2 / 1 Регистрация: 24.10.2014 Сообщений: 106
		1
	Определите даты определенного дня недели заданного месяца и года 22.10.2016, 12:26. Показов 3004. Ответов 3 Метки нет (Все метки) Определите даты определенного дня недели заданного месяца и года. 0

~~Shersh~~ Заблокирован
	22.10.2016, 16:25	2
	Зачем? 1

@MU-GK 32 / 29 / 1 Регистрация: 06.01.2017 Сообщений: 297
	03.06.2017, 22:22	4
	Я не знаю, что Вас интересует, но текст взят по указанному Вами линку. То, что Вы называете «мусор» это исходные данные. Констатируется факт искажения исходных данных. 0