CALL使用方法请教？

xiaoniu030

Private Sub ComboBox2_Change()
     Call test(4)
End Sub

Public Sub test(c)
        Select Case c
        Case 1, 3, 5, 7, 8, 10, 12
            g_day = 31
        Case 4, 6, 9, 11
            g_day = 30
        End Select
End Sub

想请教下各位 我想通过Call 调用函数test，现在可以调用，但是我们让它返回g_da的值，然后再Sub ComboBox2_Change中使用，如何做？

山菊花

Private Sub ComboBox2_Change()
    Dim v
    v = test(4) '调用函数
    MsgBox v
End Sub

Public Function test(c)
         Select Case c
         Case 1, 3, 5, 7, 8, 10, 12
             g_day = 31
         Case 4, 6, 9, 11
             g_day = 30
         End Select
         
         test = g_day '返回值
End Function

crid

要返回值就要用Function，就像版主回复的那样