Определение количества указанных дней в любом месяце

[valerij]

Цитата с книги:

Хотя в Excel много функций даты и времени, на данный момент не существует функции, которая, например, сказала бы, сколько понедельников будет в январе 2005 года. Чтобы узнать это, можно использовать много функций даты и времени Excel с глубокой вложенностью, но, к сожалению, как можно представить, это будет весьма громоздкий и неуклюжий процесс.
VBA поможет упростить сложную задачу. Вместо того чтобы нащупывать нужную комбинацию сложных функций, можно написать пользовательскую функцию, которая будет выполнять ту же задачу, и все, что нужно сделать, — ввести день и дату, для которой нужно выполнить функцию.
Для определения количества дней в определенном месяце можно воспользоваться следующей функцией. Например:
=HowManyDaysInMonth("l/12/03"."wed") - вот тут точно ошибка, но где?
Чтобы использовать эту пользовательскую функцию в рабочей книге, сначала необходимо поместить следующий код в стандартный модуль.

Function HowManyDaysInMonth(FullDate As String, sDay As String) As Integer
Dim i As Integer
Dim iDay As Integer, iMatchDay As Integer
Dim iDaysInMonth As Integer
Dim FullDateNew As Date
iMatchDay = Weekday(FullDate)
Select Case UCase(sDay)
Case "SUN"
iDay = 1
Case "MON"
iDay = 2
Case "TUE"
iDay = 3
Case "WED"
iDay 4
Case "THU"
iDay = 5
Case "FRI"
iDay = 6
Case "SAT"
iDay = 7
End Select
iDaysInMonth = Day(DateAdd("d", -1, DateSerial _
(Year(FullDate).Month(FullDate) + 1, 1)))
FullDateNew = DateSerial(Year(FullDate).Month(FullDate).iDayslnMonth)
For i = iDaysInMonth - 1 To 0 Step -1
If Weekday(FullOateNew - i) = iDay Then
HowManyDaysInMon: h = HowManyDaysInMontt + 1
End If
Next i
End Function

И здесь, наверное то же ошибка?

[EducatedFool]

И здесь, наверное то же ошибка?

Конечно.
В коде есть несколько синтаксических ошибок,
кроме того, отсутствует обработка ошибок ввода.

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

[EducatedFool]

Вот как будет правильно и коротко:

Public Enum WEEKDAY
    Понедельник = 1: Вторник = 2: Среда = 3
    Четверг = 4: Пятница = 5: Суббота = 6: Воскресенье = 7
End Enum

Function WeekDaysInMonth(ByVal FullDate As Date, iDay As WEEKDAY) As Integer
    For i = FullDate - 40 To FullDate + 40
        If Month(i) = Month(FullDate) Then WeekDaysInMonth = WeekDaysInMonth - (Application.WEEKDAY(i, 2) = iDay)
    Next i
End Function

Sub ПримерИспользования()
    MsgBox WeekDaysInMonth("21-06-2010", Четверг)
End Sub

[valerij]

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

Вот как будет правильно и коротко:

Спасибо!!!!
Ну, что за книги.....