A function with one argument : Function « Language Basics « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Language Basics
  3. Function

A function with one argument

 
  Function Commission(Sales)
  '   Calculates sales commissions
      Dim Tier1 As Double, Tier2 As Double
      Dim Tier3 As Double, Tier4 As Double
      Tier1 = 0.08
      Tier2 = 0.105
      Tier3 = 0.12
      Tier4 = 0.14
      Select Case Sales
          Case 0 To 9999.99: Commission = Sales * Tier1
          Case 10000 To 19999.99: Commission = Sales * Tier2
          Case 20000 To 39999.99: Commission = Sales * Tier3
          Case Is >= 40000: Commission = Sales * Tier4
      End Select
      Commission = Round(Commission, 2)
  End Function

  =Commission(25000)








Related examples in the same category

1.Writing VBA Function Procedures
2.A function returns a value to whomever called it. We can recast the previous sub into a function as follows:
3.Call user-defined function in MsgBox
4.Executing a Function Procedure from a Subroutine
5.A function returns a value to whomever called it.
6.One of simplest possible custom functions
7.function takes two arguments's length and width's and calculates the total area by multiplying them together
8.Convert Fahrenheit To Celsius
9.Use ElseIf in a function
10.Select Case in a function