Jarvis Blog

所得稅計算

程式碼中所得稅為虛構

所得稅公式為 :

30萬以下6%

30~50萬以下13%

50~100萬以下15%

100萬以上17%

Public Class Form1

    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MessageBox.Show("請輸入所得") '防止使用者不輸入
        End If
        Dim tmp As Double
        tmp = CDbl(TextBox1.Text)
        If tmp < 300000 Then
            TextBox2.Text = tmp * (6 / 100)
            TextBox3.Text = "6%"
        ElseIf tmp <= 500000 Then
            TextBox2.Text = tmp * (13 / 100)
            TextBox3.Text = "13%"
        ElseIf tmp <= 1000000 Then
            TextBox2.Text = tmp * (15 / 100)
            TextBox3.Text = "15%"
        ElseIf tmp >= 1000000 Then
            TextBox2.Text = tmp * (17 / 100)
            TextBox3.Text = "17%"
        End If
    End Sub
End Class