Using the Select Case Statement to check the function parameter : Function Parameter « Language Basics « VBA / Excel / Access / Word

Using the Select Case Statement to check the function parameter

Sub DisplayDiscount()
    Dim unitsSold As Integer
    Dim myDiscount As Single

    unitsSold = InputBox("Enter the number of sold units:")
    myDiscount = GetDiscount(unitsSold)
    MsgBox myDiscount
End Sub

Function GetDiscount(unitsSold As Integer)
    Select Case unitsSold
        Case 1 To 200
            GetDiscount = 0.05
        Case 201 To 500
            GetDiscount = 0.1
        Case 501 To 1000
            GetDiscount = 0.15
        Case Is > 1000
            GetDiscount = 0.2
    End Select
End Function


Related examples in the same category

2.Writing a Function Procedure with Arguments
3.Pass string value through Parameters
4.Optional Parameters
5.Default value parameters
6.Substitute a default value if an optional parameter is not provided
7.Named parameters
8.Passing Arrays as Parameters
9.Passing by Reference Versus Passing by Value
10.Pass by value
11.Illustrate a reason why you might want to pass a parameter by reference
12.Optional Parameters: Building Flexibility into Functions
13.Inserting Default Values When Parameters Are Missing
14.Accommodating for Missing Parameters in Your Code
15.Named Parameters: Eliminate the Need to Count Commas
16.Pass array parameter to a function
17.Double type parameter
18.Object parameter