2011年终奖所得税测算，请大家来纠错。

excelflower

==================================
要发年终奖了{:soso_e128:}
做个自定义函数计算年终奖所得税，请大家纠错，避免出问题{:soso_e101:}
==================================
编制依据：http://baike.baidu.com/view/7047477.htm
==================================
一个加载宏文件，一个工作簿文件，详见附件。
==================================

1. Function YEARgrsds(x As Double, y As Double)
   
2.     'x为当月计税工资总额，y为含税年终奖总额
   
3.    Dim z As Double, k As Double 'z是求含税级距的金额，k是实际年终将总额计税的总金额
   
4.    '确定计税年终奖总额
   
5.    If x >= 3500 Then '1月份工资超过3500元时
   
6.             z = y / 12
   
7.             k = y
   
8.         Else: k = y - (3500 - x): z = k / 12 '1月份工资不超过3500元时
   
9.     End If
   
10.    
    
11.     If 1500 >= z And z > 0 Then
    
12.         YEARgrsds = Application.WorksheetFunction.Round(k * 0.03, 2)
    
13.        ElseIf 4500 >= z And z > 1500 Then YEARgrsds = Application.WorksheetFunction.Round(k * 0.1 - 105, 2)
    
14.        ElseIf 9000 >= z And z > 4500 Then YEARgrsds = Application.WorksheetFunction.Round(k * 0.2 - 555, 2)
    
15.        ElseIf 35000 >= z And z > 9000 Then YEARgrsds = Application.WorksheetFunction.Round(k * 0.25 - 1005, 2)
    
16.        ElseIf 55000 >= z And z > 35000 Then YEARgrsds = Application.WorksheetFunction.Round(k * 0.3 - 2755, 2)
    
17.        ElseIf 80000 >= z And z > 55000 Then YEARgrsds = Application.WorksheetFunction.Round(k * 0.35 - 5505, 2)
    
18.        ElseIf z > 80000 Then YEARgrsds = Application.WorksheetFunction.Round(k * 0.45 - 13505, 2)
    
19.     Else: YEARgrsds = 0
    
20.     End If
    
21. End Function
    

复制代码

wlianke

把自己的奖金纠得多点{:soso_e102:}

kszcs

看看这个，里面的公式

liucqa

嗯，不错