室内消火栓的设置条件:2011年最新个人所得税率表

2011最新个税税率表。最新个人所得税率表，2011年6月底二审后的最新个人所得税税率表
起征点为3500元，应税金额为扣除五险一金与起征额3500元后的金额
级数全月应纳税所得额税率速算扣除数
1应纳税额≤1500元30
21500元＜应纳税额≤4500元10105
34500元＜应纳税额≤9000元20555
49000元＜应纳税额≤35000元251005
535000元＜应纳税额≤55000元302755
655000元＜应纳税额≤80000元355505
7应纳税额＞80000元4513505
以上从2011年9月1日开始实施
在EXCEL电子表格的计算公式为：
个人所得税=ROUND(MAX(IF(应税金额-3500>{0,1500,4500,9000,35000,55000,80000},{0,105,555,1005,2755,5505,13505}+(应税金额-3500-{0,1500,4500,9000,35000,55000,80000})*{0.03,0.1,0.2,0.25,0.3,0.35,0.45},0)),2)
如引用A1单元格的数字为应税金额    在B1单显示个人所得税额，就把以上公式复制到  B1=ROUND(MAX(IF(A1-3500>{0,1500,4500,9000,35000,55000,80000},{0,105,555,1005,2755,5505,13505}+(A1-3500-{0,1500,4500,9000,35000,55000,80000})*{0.03,0.1,0.2,0.25,0.3,0.35,0.45},0)),2)
'以上这个式也可算税，但存四舍五入的小问题，如7.415 保留2位不等于7.42 而为7.41所以用VBA写了以下这个自定义函数
'所得税B1=ROUND(MAX(IF(A1-3500>{0,1500,4500,9000,35000,55000,80000},{0,105,555,1005,2755,5505,13505}+(A1-3500-{0,1500,4500,9000,35000,55000,80000})*{0.03,0.1,0.2,0.25,0.3,0.35,0.45},0)),2)
'这个式也可以算税，但存四舍五入的小问题，如7.415 保留2位不等于7.42 而为7.41所以写了这个自定义函数
'使用格式:个人所得税(Income缴税金额,Threshold起征金额, round_sw保留小数位数)
'         个人所得税(缴税金额,,) 或 个人所得税(缴税金额)  后面两个可项参数没有时为默认 3000,2
'                  2011年9月1日起 个人所得税税率表
'起征点为3500元，应税金额为扣除五险一金与起征额3500元后的金额
'级数 全月应纳税所得额               税率(%) 速算扣除数
'1    应纳税额≤1500元                          3       0
'2    1500元＜应纳税额≤4500元          10      105
'3    4500元＜应纳税额≤9000元          20      555
'4    9000元＜应纳税额≤35000元        25      1005
'5    35000元＜应纳税额≤55000元      30      2755
'6    55000元＜应纳税额≤80000元      35      5505
'7    应纳税额＞80000元                     45      13505
'个人所得税起征点为3500元 , 即工资扣完五险一金拿到手达三千伍佰元以上人就要交税
'应交纳个人所得税 = (工资薪金所得-五险一金 -3500) * 税率 - 速算扣除数
***************************************以下为函数程序*****************************************
Public Function 个税2011(ByVal Income, Optional Threshold = 3500, Optional round_sw As Byte = 2) As Variant
Dim Rate 'As Single 这里不能定义为as single 类型，否则最后的结果四舍五入会有一些情况不对，不设就默认为Variant类型
Dim Debit
Dim Taxliability
Taxliability = Income - Threshold
Select Case Taxliability
Case 0 To 1500
Rate = 0.03
Debit = 0
Case 1500.01 To 4500
Rate = 0.1
Debit = 105
Case 4500.01 To 9000
Rate = 0.2
Debit = 555
Case 9000.01 To 35000
Rate = 0.25
Debit = 1005
Case 35000.01 To 55000
Rate = 0.3
Debit = 2755
Case 55000.01 To 80000
Rate = 0.35
Debit = 5505
Case Else
Rate = 0.45
Debit = 13505
End Select
If Taxliability <= 0 Then
个税2011 = 0
Else
个税2011 = Application.Round((Taxliability * Rate - Debit), round_sw)
End If
End Function
*************************************************************************************************
第一步：打开自己的工资表（EXCEL表格）
第二步：同时按下ALT+F11键调出 VBA代码紡辑窗口Mｉｒｃｏｓｏｆｔ　Ｖｉｓｕａｌ　Ｂａｓｉｃ　for　Ａｐｐｌｉｃａｔｉｏｎｓ
第三步：鼠标点到Tｈｉｓｗｏｒｋｂｏｏｋ处点右键--插入---模块

第四步：把上面的红色代码复制并粘贴到右边代码窗口中，关闭窗口


第五步：我们就可以在单元格用我们的自定义函数　　　个税2011　　如下图在Ｆ2单元格中输入　“　=个税2011(E2)　”回车就可以算出结果了