Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

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)