monthname

Function ДеньНеделиПрописью(НомерДняНедели As Integer, Optional Тип As Integer = 0) As String
' Записывает прописью название дня недели (1 - Пн, 2 - Вт, ..., 0 и 7 - Вс)
' Если Тип = 1, то запись 1-ой буквой ("П", "В" и т.п.)
' Если Тип = 2, то запись 2-мя буквами ("Пн", "Вт" и т.п.)
' Если Тип = 0, то запись полностью ("Вторник" и т.п.)
' Если Тип = 11, то запись 1-ой буквой ("M", "S" и т.п.)
' Если Тип = 12, то запись 2-мя буквами ("Mo", "Tu" и т.п.)
' Если Тип = 10, то запись полностью ("Monday" и т.п.)
   
    Select Case Тип
        Case 1
            Select Case НомерДняНедели
                Case 1
                    ДеньНеделиПрописью = "П"
                Case 2
                    ДеньНеделиПрописью = "В"
                Case 3
                    ДеньНеделиПрописью = "С"
                Case 4
                    ДеньНеделиПрописью = "Ч"
                Case 5
                    ДеньНеделиПрописью = "П"
                Case 6
                    ДеньНеделиПрописью = "С"
                Case Else
                    ДеньНеделиПрописью = "В"
            End Select
        Case 2
            Select Case НомерДняНедели
                Case 1
                    ДеньНеделиПрописью = "Пн"
                Case 2
                    ДеньНеделиПрописью = "Вт"
                Case 3
                    ДеньНеделиПрописью = "Ср"
                Case 4
                    ДеньНеделиПрописью = "Чт"
                Case 5
                    ДеньНеделиПрописью = "Пт"
                Case 6
                    ДеньНеделиПрописью = "Сб"
                Case Else
                    ДеньНеделиПрописью = "Вс"
            End Select
        Case 11
            Select Case НомерДняНедели
                Case 1
                    ДеньНеделиПрописью = "M"
                Case 2
                    ДеньНеделиПрописью = "T"
                Case 3
                    ДеньНеделиПрописью = "W"
                Case 4
                    ДеньНеделиПрописью = "T"
                Case 5
                    ДеньНеделиПрописью = "F"
                Case 6
                    ДеньНеделиПрописью = "S"
                Case Else
                    ДеньНеделиПрописью = "S"
            End Select
        Case 12
            Select Case НомерДняНедели
                Case 1
                    ДеньНеделиПрописью = "Mo"
                Case 2
                    ДеньНеделиПрописью = "Tu"
                Case 3
                    ДеньНеделиПрописью = "We"
                Case 4
                    ДеньНеделиПрописью = "Th"
                Case 5
                    ДеньНеделиПрописью = "Fr"
                Case 6
                    ДеньНеделиПрописью = "Sa"
                Case Else
                    ДеньНеделиПрописью = "Su"
            End Select
        Case 10
            Select Case НомерДняНедели
                Case 1
                    ДеньНеделиПрописью = "Monday"
                Case 2
                    ДеньНеделиПрописью = "Tuesday"
                Case 3
                    ДеньНеделиПрописью = "Wednesday"
                Case 4
                    ДеньНеделиПрописью = "Thursday"
                Case 5
                    ДеньНеделиПрописью = "Friday"
                Case 6
                    ДеньНеделиПрописью = "Saturday"
                Case Else
                    ДеньНеделиПрописью = "Sunday"
            End Select
        Case Else
            Select Case НомерДняНедели
                Case 1
                    ДеньНеделиПрописью = "Понедельник"
                Case 2
                    ДеньНеделиПрописью = "Вторник"
                Case 3
                    ДеньНеделиПрописью = "Среда"
                Case 4
                    ДеньНеделиПрописью = "Четверг"
                Case 5
                    ДеньНеделиПрописью = "Пятница"
                Case 6
                    ДеньНеделиПрописью = "Суббота"
                Case Else
                    ДеньНеделиПрописью = "Воскресенье"
            End Select
    End Select
End Function

Function Test(x As Integer) As String

    Select Case x

        Case 1
            Test = "Один"
       
        Case 2, 15
            Test = "Два или пятнадцать"

        Case 3 To 7
            Test = "От трех до семи"

        Case Is < 0
            Test = "Отрицательное"

        Case Else
            Test = "Я такого числа не знаю..."
   
    End Select

End Function