Не знаю, как вас, а меня нервирует, что функция ДЕНЬНЕД возвращает число… например, 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
Можно сделать функцию короче:
Function ДеньНедБук(дата As Date) As String
ДеньНедБук = Format(дата, «DDDD»)
End Function