Excel. Учим функцию ДЕНЬНЕД возвращать буквенное значение

Рубрика: 7. Полезняшки Excel

Не знаю, как вас, а меня нервирует, что функция ДЕНЬНЕД возвращает число… например, 4. Куда как приятнее – «четверг» Предлагаю Вашему вниманию код VBA пользовательской функции ДеньНедБук (если вы новичок, то предлагаю ознакомиться с другой моей заметкой, в которой подробно описано, как создать пользовательскую функцию).

Итак, код функции ДеньНедБук:

Function ДеньНедБук(дата As Date) As String

Dim number As Byte

number = Weekday(дата, 2)

Select Case number

    Case 1

        ДеньНедБук = «пн»

    Case 2

        ДеньНедБук = «вт»

    Case 3

        ДеньНедБук = «ср»

    Case 4

        ДеньНедБук = «чт»

    Case 5

        ДеньНедБук = «пт»

    Case 6

        ДеньНедБук = «сб»

    Case 7

        ДеньНедБук = «вс»

End Select

End Function

Комментарии: (1)

Можно сделать функцию короче:

Function ДеньНедБук(дата As Date) As String
ДеньНедБук = Format(дата, «DDDD»)
End Function


Прокомментировать