Good Day
I have created a function in VBA which checks the salary input is between two bands and if so then must do a calculation. I have taken the code out of the function and it works exactly how it should however in the function it does not return the result and not sure what is the cause of it. Do I need to add in the return method in the function?
The code is below:
<code>Function TaxTableCalculation(Salary) As Long
If TaxIncomeLowBand_1 < Salary And Salary <= TaxIncomeHighBand_1 Then
TaxTableCalculation = (Salary - TaxIncomeLowBand_1) * PercentageTaxBand_1 + BaseTaxBand_1
ElseIf TaxIncomeLowBand_2 < Salary And Salary <= TaxIncomeHighBand_2 Then
TaxTableCalculation = (Salary - TaxIncomeLowBand_2) * PercentageTaxBand_2 + BaseTaxBand_2
ElseIf TaxIncomeLowBand_3 < Salary And Salary <= TaxIncomeHighBand_3 Then
TaxTableCalculation = (Salary - TaxIncomeLowBand_3) * PercentageTaxBand_3 + BaseTaxBand_3
End If
End Function
Dim Salary As String
Salary = InputBox("Input your salary,no decimals only whole numbers")
'TaxCalcOutput = TaxTableCalculation(Salary)
</code>
<code>Function TaxTableCalculation(Salary) As Long
If TaxIncomeLowBand_1 < Salary And Salary <= TaxIncomeHighBand_1 Then
TaxTableCalculation = (Salary - TaxIncomeLowBand_1) * PercentageTaxBand_1 + BaseTaxBand_1
ElseIf TaxIncomeLowBand_2 < Salary And Salary <= TaxIncomeHighBand_2 Then
TaxTableCalculation = (Salary - TaxIncomeLowBand_2) * PercentageTaxBand_2 + BaseTaxBand_2
ElseIf TaxIncomeLowBand_3 < Salary And Salary <= TaxIncomeHighBand_3 Then
TaxTableCalculation = (Salary - TaxIncomeLowBand_3) * PercentageTaxBand_3 + BaseTaxBand_3
End If
End Function
Dim Salary As String
Salary = InputBox("Input your salary,no decimals only whole numbers")
'TaxCalcOutput = TaxTableCalculation(Salary)
</code>
Function TaxTableCalculation(Salary) As Long
If TaxIncomeLowBand_1 < Salary And Salary <= TaxIncomeHighBand_1 Then
TaxTableCalculation = (Salary - TaxIncomeLowBand_1) * PercentageTaxBand_1 + BaseTaxBand_1
ElseIf TaxIncomeLowBand_2 < Salary And Salary <= TaxIncomeHighBand_2 Then
TaxTableCalculation = (Salary - TaxIncomeLowBand_2) * PercentageTaxBand_2 + BaseTaxBand_2
ElseIf TaxIncomeLowBand_3 < Salary And Salary <= TaxIncomeHighBand_3 Then
TaxTableCalculation = (Salary - TaxIncomeLowBand_3) * PercentageTaxBand_3 + BaseTaxBand_3
End If
End Function
Dim Salary As String
Salary = InputBox("Input your salary,no decimals only whole numbers")
'TaxCalcOutput = TaxTableCalculation(Salary)
Any advice or assistnce will be greatly appreciated