Как заставить функцию вернуть значение, а не просто выполниться

Пользователь

Сообщений: 209 Регистрация: 26.12.2012

29.08.2018 14:17:05

Уважаемые форумчане, можете пожалуйста помочь разобраться. Особо фунции не пишу, а тут пришлось. Я хочу чтобы в переменную вернулось значение, расчитанное внутри функции. Но она не заполняется. Т.е. моя переменная strMonth все-равно остается пустой.

Код

Private Function WhatMonth(ByVal funcM As Byte) As String
    Select Case funcM
        Case Is = 1
            strM = "Январь"
        Case Is = 8
            strM = "Август"
    End Select
End Function

Sub test()
    Dim myDate As Date
    Dim m As Byte
    
    myDate = Date
    m = Month(myDate)
    
    strMonth = WhatMonth(m)
End Sub

Когда испробованы все варианты, я начинаю плясать с бубном. Как правило — помогает.

ivanok_v2

Пользователь

Сообщений: 712 Регистрация: 19.08.2018

29.08.2018 14:20:04

Код

Private Function WhatMonth(ByVal funcM%) As String
    Select Case funcM
        Case Is = 1
            strM = "Январь"
        Case Is = 8
            strM = "Август"
    End Select
End Function
 
Sub test()
   dim strMonth$
   strMonth$ = WhatMonth(1)
End Sub

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

29.08.2018 14:30:07

Abakumov, Вы же идентификатору WhatMonth ничего не присваиваете

Код
Function WhatMonth(ByVal funcM As Byte) As String Select Case funcM Case 1 WhatMonth = "Январь" Case 8 WhatMonth = "Август" End Select End Function

БМВ

Модератор

Сообщений: 23295 Регистрация: 28.12.2016

Excel 2013, 2016

29.08.2018 14:30:10

Abakumov, просто нужно

Код
Private Function WhatMonth(ByVal funcM As Byte) As String Select Case funcM Case Is = 1 WhatMonth = "Январь" Case Is = 8 WhatMonth = "Август" End Select End Function

ПредПредыдущий оратор не на то обратил внимание.

Изменено: БМВ - 29.08.2018 14:31:26

По вопросам из тем форума, личку не читаю.

ivanok_v2 Пользователь Сообщений: 712 Регистрация: 19.08.2018	#5 29.08.2018 14:31:09 del Изменено: ivanok_v2 - 29.08.2018 14:32:31