隨著2011年9月新個人所得稅起征點改為3500元之后,excel個人所得稅計算公式也稍有變化。
excel個人所得稅計算公式一
如下圖所示是excel個人所得稅計算公式的一個截圖。
C2單元格個人所得稅計算公式為:
=ROUND(MAX((B2-3500)*5%*{0.6,2,4,5,6,7,9}-5*{0,21,111,201,551,1101,2701},0),2)
然后下拉公式復(fù)制,可以計算出其余人員的個人所得稅。
excel個人所得稅計算公式為:(應(yīng)發(fā)工資-個稅起征點金額)*稅率-速算扣除數(shù)
上面的excel個人所得稅計算公式,思路講解:
(B2-3500)是個人所得稅的應(yīng)納稅所得額,{0.6,2,4,5,6,7,9}是一個數(shù)組。
0.05*{0.6,2,4,5,6,7,9}={0.03,0.1,0.2,0.25,0.3,0.35,0.45} 是個人所得稅的稅率公式。
5*{0,21,111,201,551,1101,2701}={0,105,555 ,1005,2755,5505,13505}是各級別的個人所得稅扣除額。
(B2-3500)*5%*{0.6,2,4,5,6,7,9}-5*{0,21,111,201,551,1101,2701} 是納稅額*各級個稅稅率-應(yīng)扣額后的數(shù)字,如果稅率對應(yīng)的級別<=納稅額時,稅率越大稅額越大,符合所繳稅款和所得相匹配的原理。如果稅率對應(yīng)的級別>納稅額時,稅率越大稅額越小,因為扣減了超額的扣除數(shù),這樣保證了,繳稅數(shù)組里最大的那個一定是最符合相應(yīng)稅率的。
因為存在了納稅額<0的情況,即工資不滿3500元,為避免出現(xiàn)稅額為0,就在(B2-3500)*5%*{0.6,2,4,5,6,7,9}-5*{0,21,111,201,551,1101,2701}后添了一個“,0”的值 保證計算稅額的公式MAX((B2-3500)*5%*{0.6,2,4,5,6,7,9}-5*{0,21,111,201,551,1101,2701},0)必定有個0值,在用MAX求最大時,出現(xiàn)的稅額一定是符合稅率的,并最小的數(shù)是0,不會出現(xiàn)負(fù)數(shù)。
簡而言之,MAX 函數(shù)取最大值,并設(shè)置下限值為0,即得出對應(yīng)員工的個人所得稅。
最外面嵌套ROUND函數(shù),就是4舍5入到2位小數(shù)。
excel個人所得稅計算公式二
使用下面的自定義函數(shù)完成excel個人所得稅計算,使用方法參考文章最后的鏈接。
Function tax(Optional A As Double = 0, Optional y = 0, Optional z = 1)
'tax(月收入),tax(年收入,月收入)
Dim 分界, 稅率, 扣除數(shù)
分界 = Array(0, 1500, 4500, 9000, 35000, 55000, 80000) '收入分界
稅率 = Array(0.03, 0.1, 0.2, 0.25, 0.3, 0.35, 0.45) '各檔稅率
扣除數(shù) = Array(0, 105, 555, 1005, 2755, 5505, 13505) '各檔扣除數(shù)
b = 3500
If z = 1 Then
If y = 0 Then x = A - b Else b = Application.Max(b - y, 0): x = (A - b) / 12
For i = 6 To 0 Step -1
If x > 分界(i) Then
tax = (A - b) * 稅率(i) - 扣除數(shù)(i)
Exit For
End If
Next
ElseIf z = 2 Then
If y = 0 Then x = A - b Else b = Application.Max(b - y, 0): x = (A - b) / 12
If y = 0 And x < 0 Then tax = A
For i = 6 To 0 Step -1
If x > 分界(i) Then
tax = (A - b) * (1 - 稅率(i)) + 扣除數(shù)(i) + b
Exit For
End If
Next
ElseIf z = 3 Then
If y = 0 Then x = A - b Else b = Application.Max(b - y, 0): x = (A - b)
If y = 0 And x < 0 Then tax = A
For i = 6 To 0 Step -1
If y = 0 Then
If x > 分界(i) - tax(分界(i) + b, 0, 1) Then
tax = (A - b - 扣除數(shù)(i)) / (1 - 稅率(i)) + b
Exit For
End If
Else
If x > 12 * 分界(i) - tax(12 * 分界(i), 3500, 1) Then
tax = (A - 扣除數(shù)(i)) / (1 - 稅率(i))
Exit For
End If
End If
Next
ElseIf z = 4 Then
If y = 0 Then x = A - b Else b = Application.Max(b - y, 0): x = (A - b)
For i = 6 To 0 Step -1
If y = 0 Then
If x > 分界(i) - tax(分界(i) + b, 0, 1) Then
tax = tax(A, 0, 1) / (1 - 稅率(i))
Exit For
End If
Else
If x > 12 * 分界(i) - tax(12 * 分界(i), 3500, 1) Then
tax = tax(A, 3500, 1) / (1 - 稅率(i))
Exit For
End If
End If
Next
ElseIf z = 5 Then
For i = 6 To 0 Step -1
If y = 0 Then
If A > tax(分界(i) + b, 0, 1) Then
tax = (A + 扣除數(shù)(i)) / 稅率(i) + b
Exit For
End If
Else
If A > tax(12 * 分界(i), b, 1) Then
tax = (A + 扣除數(shù)(i)) / 稅率(i)
Exit For
End If
End If
Next
ElseIf z = 6 Then
For i = 6 To 0 Step -1
If y = 0 Then
If A > tax(分界(i) + b, 0, 1) Then
tax = (A * (1 - 稅率(i)) + 扣除數(shù)(i)) / 稅率(i) + b
Exit For
End If
Else
If A > tax(12 * 分界(i), b, 1) Then
tax = (A * (1 - 稅率(i)) + 扣除數(shù)(i)) / 稅率(i)
Exit For
End If
End If
Next
End If
tax = Round(tax + 0.0001, 2)
End Function
核心關(guān)注:拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用,蘊涵了豐富的ERP管理思想,集成了ERP軟件業(yè)務(wù)管理理念,功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理,全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域,是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請注明出處:拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標(biāo)題:excel個人所得稅計算公式
本文網(wǎng)址:http://www.ezxoed.cn/html/support/11139214962.html