Commission code


Posted by Chris on April 02, 2001 8:48 AM

I am writing a function that will calculate the commission payable to an employee if a certain sales target is made. following is the code and it doesnt seem to work.
Chris

Function Commission(Sale, How_Big)
'
'Calculates the commision to be paid to the employees
'
Commission_Rate1 = 0.15
Commission_Rate2 = 0.23
yes = "yes"
If Sale = "yes" Then
If Sale <= 500 Then
Commission = 0

If Sale <= 1000 Then
Commission = How_Big * Commission_Rate1

If Sale >= 1500 Then
Commission = How_Big * Commission_Rate2

Else
Commission = 0
End If
End If
End If
End If


Commission = Application.Round(Commission,2) 'Round for currency
End Function

Posted by mseyf on April 02, 2001 11:11 AM

Chris-

without knowing what 'Sale' and 'How_Big' are supposed to represent, it appears that the lines

Sale<=500
Sale<=1000
Sale>=1500

should be

How_Big<=500
How_Big<=1000
How_Big>=1500

side note: what about sales between 1000 and 1500?

HTH

Mark

Calculates the commision to be paid to the employees If Sale <= 1000 Then Commission = How_Big * Commission_Rate1 If Sale >= 1500 Then Commission = How_Big * Commission_Rate2 Else End If End If End If End If

Posted by Dave Hawley on April 02, 2001 11:38 AM

Calculates the commision to be paid to the employees If Sale <= 1000 Then Commission = How_Big * Commission_Rate1 If Sale >= 1500 Then Commission = How_Big * Commission_Rate2 Else End If End If End If End If


Chris, You have:

If Sale = "yes" Then
If Sale <= 500 Then

Is Sale a String or a Integer ?

You also need to change:
Commission = Application.Round(Commission,2) 'Round for currency

TO

Commission = Application.WorksheetFunction.Round(Commission, 2) 'Round for currency

Dave
OzGrid Business Applications



Posted by Chris on April 03, 2001 10:37 AM

thanks

Thanks guys