Computer Programming Concepts and Visual Basic David I. Schneider

Private Function TaxMarried(adjPay As Single) As Single
‘Task 6.3: Compute federal tax for married person based on adjusted pay
Select Case adjPay
Case 0 To 124
TaxMarried = 0
Case 124 To 899
TaxMarried = 0.15 * (adjPay - 124)
Case 899 To 1855
TaxMarried = 116.25 + 0.28 * (adjPay - 899)
Case 1855 To 3084
TaxMarried = 383.93 + 0.31 * (adjPay - 1855)
Case 3084 To 5439
TaxMarried = 764.92 + 0.36 * (adjPay - 3084)
Case Is > 5439
TaxMarried = 1612.72 + 0.396 * (adjPay - 5439)
End Select
End Function
Private Function TaxSingle(adjPay As Single) As Single
‘Task 6.2: Compute federal tax for single person based on adjusted pay
Select Case adjPay
Case 0 To 51
TaxSingle = 0
Case 51 To 517
TaxSingle = 0.15 * (adjPay - 51)
Case 517 To 1105
TaxSingle = 69.6 + 0.28 * (adjPay - 517)
Case 1105 To 2493
TaxSingle = 234.54 + 0.31 * (adjPay - 1105)
Case 2493 To 5385
TaxSingle = 664.82 + 0.36 * (adjPay - 2493)
Case Is > 5385
TaxSingle = 1705.94 + 0.396 * (adjPay - 5385)
End Select
End Function
Private Function Total_Pay(prevPay As Single, pay As Single)
‘Compute total pay before taxes
Total_Pay = prevPay + pay
End Function
COMMENTS
A Case Study: Weekly Payroll 125
1. In the function FICA_Tax, care has been taken to avoid computing Social Security
benefits tax on income in excess of $68,400 per year. The logic of the program
makes sure an employee whose income crosses the $68,400 threshold
during a given week is taxed only on the difference between $68,400 and his
previous year-to-date income.
2. The two functions TaxMarried and TaxSingle use Select Case to incorporate the
tax brackets given in Tables 4.4 and 4.5 for the amount of federal income tax
withheld. The upper limit of each Case clause is the same as the lower limit of
the next Case clause. This ensures fractional values for adjPay, such as 51.50 in