The If-Then structure

Sub ShowDiscount()

    Dim Quantity As Integer

    Dim Discount As Double

    Quantity = InputBox("Enter Quantity: ")

    If Quantity > 0     Then Discount = 0.1

    If Quantity >= 25 Then Discount = 0.15

    If Quantity >= 50 Then Discount = 0.2

    If Quantity >= 75 Then Discount = 0.25

    MsgBox "Discount: " & Discount

End Sub

 

Sub ShowDiscount2()

  Dim Quantity As Integer

  Dim Discount As Double

  Quantity = InputBox("Enter Quantity: ")

  If Quantity > 0 And Quantity < 25 Then

    Discount = 0.1

      ElseIf Quantity >= 25 And Quantity < 50 Then

        Discount = 0.15

           ElseIf Quantity >= 50 And Quantity < 75 Then

             Discount = 0.2

               ElseIf Quantity >= 75 Then

                 Discount = 0.25

  End If

  MsgBox "Discount: " & Discount

End Sub