Visual studio 计算联邦预扣税

嘿，我在努力计算联邦预扣税。我使用Select案例尝试运行该等式。由于某些原因，我无法获得填充到标签中的值，因此有点不知所措。感谢您的帮助

Public Class Form1
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnExit.Click
    Me.Close()
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnNextEmployee.Click
    txtHourlyWage.Clear()
    txtPreviousYTD.Clear()
    txtWithExem.Clear()
    rdoMarried.Checked = False
    rdoSingle.Checked = False
    txtName.Clear()
    txtHoursWorked.Clear()
    lblEmployeeName.Text = ""
    lblFedTaxInc.Text = ""
    lblFicaTax.Text = ""
    lblGrossEarnings.Text = ""
    lblNetEarnings.Text = ""
    lblUpdatedYTD.Text = ""

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnPayrollSum.Click

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click

    'Declare Variables
    Dim decHourlyWage As Decimal 'Hourly Wage
    Dim intHoursWorked As Integer 'Hours worked
    Dim decGrossEarnings As Decimal 'Gross Earnings
    Dim decPreviousYTD As Decimal 'Previous YTD Earnings
    Dim decUpdatedYTD As Decimal 'Updated YTD Earnings
    Dim MedicareTax As Decimal 'Medicare
    Dim SST As Decimal 'Social Security Tax
    Dim SSNDIFF As Decimal 'Difference
    Dim FicaTax As Decimal 'Fica Tax
    Dim decNetEarnings As Decimal 'Net Earnings
    Dim marital As String 'Marital Status
    Dim decFedIncTax As Decimal 'Fed Income tax Withheld
    Dim WithHold As Decimal
    Dim GrossEarnings As Decimal

    'Employee Name
    lblEmployeeName.Text = txtName.Text

    'Calculate and Display Gross Earnings
    decHourlyWage = CDec(txtHourlyWage.Text)
    intHoursWorked = CInt(txtHoursWorked.Text)
    decGrossEarnings = decHourlyWage * intHoursWorked

    'Gross Earnings
    If intHoursWorked < 40 Then
        decGrossEarnings = (decHourlyWage * intHoursWorked)
    ElseIf intHoursWorked > 40 Then
        decGrossEarnings = (40 * decHourlyWage) + ((intHoursWorked - 40) * (decHourlyWage * 1.5))
    End If

    'Withhold
    WithHold = txtWithExem.Text * 55.77

    'Marriage Status
    If Me.rdoSingle.Checked Then
        marital = "S"
    Else
        marital = "M"
    End If

    'GetFWT
    If marital = "S" Then
        Select Case GrossEarnings
            Case decGrossEarnings >= 0 And decGrossEarnings <= 50.99
                decFedIncTax = 0
            Case decGrossEarnings >= 51 And decGrossEarnings <= 500.99
                decFedIncTax = ((decGrossEarnings - 51) - WithHold) * 0.1
            Case decGrossEarnings >= 501 And decGrossEarnings <= 2500.99
                decFedIncTax = (((decGrossEarnings - 501) - WithHold) * 0.15) + 45
            Case 2501 To 5000.99
                decFedIncTax = ((decGrossEarnings - 2501 - WithHold) * 0.2) + 345
            Case decGrossEarnings >= 5001
                decFedIncTax = ((decGrossEarnings - 5001 - WithHold) * 0.25) + 845
        End Select
    Else
        Select Case GrossEarnings
            Case decGrossEarnings = 0 To 50.99
                decFedIncTax = 0
            Case decGrossEarnings = 51 To 500.99
                decFedIncTax = (decGrossEarnings - 51 - WithHold) * 0.05
            Case decGrossEarnings = 501 To 2500.99
                decFedIncTax = ((decGrossEarnings - 501 - WithHold) * 0.1) + 45
            Case decGrossEarnings = 2501 To 5000.99
                decFedIncTax = ((decGrossEarnings - 2501 - WithHold) * 0.15) + 345
            Case decGrossEarnings >= 5001
                decFedIncTax = ((decGrossEarnings - 5001 - WithHold) * 0.2) + 600.5
        End Select
    End If

    'Calculate and Display FICA Tax
    MedicareTax = decGrossEarnings * 0.0145
    If (decPreviousYTD + decGrossEarnings) < 84000 Then
        SST = decGrossEarnings * 0.062
    Else
        If decPreviousYTD > 84000 Then
            SST = 0
        Else
            SSNDIFF = 84000 - decPreviousYTD
            SST = SSNDIFF * 0.062
        End If
    End If
    FicaTax = MedicareTax + SST
    lblFicaTax.Text = FicaTax.ToString("c")

    'Calculate and Display Net Earnings
    decNetEarnings = decGrossEarnings - FicaTax
    lblNetEarnings.Text = decNetEarnings.ToString("c")

    'display Gross earnings
    lblGrossEarnings.Text = decGrossEarnings.ToString("c")

    'display FWT
    lblFedTaxInc.Text = GrossEarnings.ToString("c")

    'Calculate And Display Updated YTD Earnings
    decPreviousYTD = CDec(txtPreviousYTD.Text)
    decUpdatedYTD = decGrossEarnings + decPreviousYTD
    lblUpdatedYTD.Text = decUpdatedYTD.ToString("c")

End Sub

公共类表单1
私有子按钮4\u单击（发送者作为对象，e作为事件参数）处理btnExit。单击
我
端接头
私有子按钮2\u单击（发件人作为对象，e作为事件参数）处理btnNextEmployee。单击
txtHourlyWage.Clear（）
txtPreviousYTD.Clear（）
txtWithExem.Clear（）
rdoMarried.Checked=False
rdoSingle.Checked=False
txtName.Clear（）
txtHoursWorked.Clear（）
lblEmployeeName.Text=“”
lblFedTaxInc.Text=“”
lblFicaTax.Text=“”
lblgrosseeds.Text=“”
lblNetEarnings.Text=“”
lblUpdatedYTD.Text=“”
端接头
私有子按钮3\u单击（发送者作为对象，e作为事件参数）处理BTNParollSum。单击
端接头
私有子按钮1\u单击（发送者作为对象，e作为事件参数）处理BTN计算。单击
'声明变量
Dim decHourlyWage作为十进制的“小时工资”
Dim intHoursWorked为整数“工时”
作为小数点后的总收益的Dim Deckgrossernings
Dim Deceavious YTD为Decimal“以前的YTD收益
Dim decUpdatedYTD为十进制“更新的YTD收益”
Dim MedicareTax作为十进制的“医疗保险”
作为“十进制”的社会保障税
将SSNDIFF设置为十进制“差
作为十进制“Fica税”的Dim FITAX
以十进制“净收益”表示的净收益
模糊婚姻字符串的婚姻状态
Dim decFedIncTax作为“代扣的联邦所得税”
保留为十进制
以十进制表示的模糊格罗斯林
'员工姓名
lblEmployeeName.Text=txtName.Text
“计算并显示总收入
decHourlyWage=CDec（txtHourlyWage.Text）
intHoursWorked=CInt（txtHoursWorked.Text）
DecGrossArnings=decHourlyWage*intHoursWorked
“总收入
如果intHoursWorked<40，则
DecGrossArrings=（decHourlyWage*intHoursWorked）
如果工作时间超过40，则
DecGrossArrings=（40*decHourlyWage）+（内部工作-40）*（decHourlyWage*1.5））
如果结束
“扣留
扣留=txtWithExem.Text*55.77
"婚姻状况",
如果Me.rdoSingle.Checked那么
“S”
其他的
“M”
如果结束
“快
如果为“S”，则
选择案例Grossernings
案例DecGross>=0，DecGross=51，DecGross=501，DecGross=5001
decFedIncTax=（（Deckrossearlings-5001-预扣）*0.25）+845
结束选择
其他的
选择案例Grossernings
案例DecGrossernings=0至50.99
decFedIncTax=0
案例DecGrossernings=51至500.99
decFedIncTax=（Deckrossearngs-51-预扣）*0.05
案例DecGrossernings=501至2500.99
decFedIncTax=（（Deckrossearngs-501-预扣）*0.1）+45
案例DecGrossernings=2501至5000.99
十二月十二日=0.15+345
案例数量>=5001
十二月份的收入=（（十二月份的收入-5001-预扣）*0.2）+600.5
结束选择
如果结束
'计算并显示FICA税
MedicareTax=DecGrossearlings*0.0145
如果（上一年年初至今+下一年年初至今）<84000，则
SST=DecGrossSearnings*0.062
其他的
如果上一个月的YTD>84000，则
SST=0
其他的
SSNDIFF=84000-上一个月至今
SST=SSNDIFF*0.062
如果结束
如果结束
Fitax=MedicareTax+不锈钢
lblFicaTax.Text=FicaTax.ToString（“c”）
计算并显示净收益
decNetEarnings=deckrossearngs-fitax
lblNetEarnings.Text=decNetEarnings.ToString（“c”）
“显示总收入
lblGrossEarnings.Text=deckrossearnings.ToString（“c”）
'显示FWT
lblFedTaxInc.Text=grossarlings.ToString（“c”）
'计算并显示更新的年初至今收益
DecpPreviousYTD=CDec（txtpPreviousYTD.Text）
decUpdatedYTD=DecGrossArrings+decPreviousYTD
lblUpdatedYTD.Text=deupdatedytd.ToString（“c”）
端接头

---

期末

复习功课，正确使用数学比较

0<50.99

不会做您认为它会做的事情。每种情况下都需要两个测试，一个用于>=测试，另一个用于尚未更正的测试。再读一读我写的关于需要和。你需要两个测试：

Earnings>=LowValue

和

earning5000然后。。。否则，如果收入>2500，则

I更新顶部的总体代码。查看“婚姻”部分。为什么你要在注释中为我编写代码，而不是自己编写代码并在系统上进行测试？我一直在我的机器上进行测试，但运气不佳。我只是迷路了。