Jarvis Blog

所得稅計算

程式碼中所得稅為虛構

所得稅公式為 :

30萬以下6%

3050萬以下13%

50100萬以下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