I need to FICA and Federal Tax % to a weekly paycheck calculator. I think I have everything in the program that needs to but, I think I might have a line in the wrong spot or in the wrong order. Any help would be greatly appreciated. Thank you.
Public Class Form1 Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub Private Sub btnCal_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCal.Click Dim payRate As Decimal Dim grossPay As Decimal Dim netPay As Decimal Dim hoursWorked As Integer Dim annual As Decimal Dim fedTax As Decimal Dim fica As Decimal Dim totalDeds As Decimal payRate = textboxBasePay.Text hoursWorked = textboxHours.Text grossPay = hoursWorked * payRate lblGrossPay.Text = FormatCurrency(grossPay) annual = grossPay * 52 totalDeds = fica + fedTax lblTotalDeductions.Text = FormatPercent(totalDeds) If annual <= 50000 Then fedTax = 0.25 And fica = 0.07 ElseIf annual > 50000 < 120000 Then fedTax = 0.31 And fica = 0.15 Else fedTax = 0.35 And fica = 0.15 End If 'totalDeds = fica + fedTax 'lblTotalDeductions.Text = FormatPercent(totalDeds) netPay = grossPay - grossPay * totalDeds lblNetPay.Text = FormatCurrency(netPay) ' lblTotalDeductions.Text = FormatPercent(totalDeds) Label8.Text = FormatPercent(fedTax) Label10.Text = FormatPercent(fica) End Sub End Class