Dim a As Double, b As Double, c As Double, d As Double
Dim y As Double
a = InputBox("請輸入今年綜合所得稅淨額", "綜合所得稅")
Select Case a
     Case a <= 370000
       y = Val(a) * 0.06 - 0
     Case 370000 < a <= 990000
       y = Val(a) * 0.13 - 25900
     Case 990000 < a <= 1980000
       y = Val(a) * 0.21 - 105100
     Case 1980000 < a <= 3720000
       y = Val(a) * 0.3 - 283300
     Case a > 3720000
       y = Val(a) * 0.4 - 655300
  End Select

Form1.FontSize = 18
Print "     八十八年度綜合所得稅清單"
Form1.FontSize = 12
Print "綜合所得稅淨額:"; a; "元"
Print "稅          率: "
Print "--------------------------------------"
Print "稅          金:"
Print "累  進  差  額:"
Print "--------------------------------------"
Print "全 年 應 納 稅額:"; y; " 元 "

End Sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()