Excel計算個人工資所得稅

思毓 2011-01-27

展開全文

用Excel計算個人工資所得稅的四套方案

日期：2010-01-25　作者：孫亞　出處：天極軟件我來說兩句(0)

　　一、個人工薪所得納稅相關背景知識

　　1、個人取得的工資、薪金所得，是指個人因任職或者受雇而取得的工資、薪金、獎金、年終加薪、勞動分紅、津貼、補貼以及與任職或受雇有關的其他所得。

　　個人所得稅是對按稅法規(guī)定具有納稅義務的中國公民和外籍人員的個人收入或所得征收的一種稅。

　　2、工資、薪金所得項目稅率表：

表1

　　3、工資、薪金所得按以下步驟計算繳納個人所得稅：

　　每月取得工資收入后，先減去個人承擔的基本養(yǎng)老保險金、醫(yī)療保險金、失業(yè)保險金，以及按省級政府規(guī)定標準繳納的住房公積金，再減去費用扣除額 1600 元 / 月（來源于境外的所得以及外籍人員、華僑和香港、澳門、臺灣同胞在中國境內的所得每月還可附加減除費用 3200 元），為應納稅所得額，按 5% 至 45% 的九級超額累進稅率計算繳納個人所得稅。

　　計算公式是：應納個人所得稅稅額 = 應納稅所得額×適用稅率—速算扣除數

　　例：王某當月取得工資收入 9000 元，當月個人承擔住房公積金、基本養(yǎng)老保險金、醫(yī)療保險金、失業(yè)保險金共計 1000 元，費用扣除額為 1600 元，則王某當月應納稅所得額 =9000-1000-1600=6400 元。應納個人所得稅稅額 =6400 × 20%-375=905 元。

　　4、個人取得工資、薪金所得應繳納的個人所得稅，統(tǒng)一由支付人負責代扣代繳，支付人是稅法規(guī)定的扣繳義務人。

　　5、根據十屆全國人大常委會第十八次全體會議《關于修改〈中華人民共和國個人所得稅法〉的決定》，自 2006 年 1 月 1 日起，工薪所得個調稅起征點執(zhí)行中國公民 1600 元、外籍人士 4800 元的標準，計征方法仍執(zhí)行原定九級累進方案（如表 1 所示）。

　二、工薪所得個調稅的 Excel 計算解決方案

表2

　　C2 =IF(A2<>"",A2-B2,"")

　　【方案一】—— IF 嵌套版：

　　B2 =IF(AND(A2>0,A2<=1600),0,IF(AND(A2>1600,A2<=2100),ROUND((A2-1600)*0.05,2),IF(AND(A2>2100,A2<=3600),ROUND((A2-1600)*0.1-25,2),IF(AND(A2>3600,A2<=6600),ROUND((A2-1600)*0.15-125,2),IF(AND(A2>6600,A2<=21600),ROUND((A2-1600)*0.2-375,2),IF(AND(A2>21600,A2<=41600),ROUND((A2-1600)*0.25-1375,2),IF(AND(A2>41600,A2<=61600),ROUND((A2-1600)*0.3-3375,2),"")))))))

　　優(yōu)點：簡單明了，上手容易

　　缺點：if() 函數嵌套最多只能七層，而個調稅計征采用的是九級累進，所以這個公式適用的月收入上限是 6 萬。

　　【方案二】——輔助數據版：

　　在 E、F、G、H、I 五列插入輔助列(如表 2 所示)。

　　B2 =IF(A2<>"",ROUND(IF(A2>1600,A2-1600,0)*VLOOKUP(VLOOKUP(IF(A2>1600,A2-1600,0),$G$2:$G$10,1),$G$2:$I$10,2)-VLOOKUP(VLOOKUP(IF(A2>1600,A2-1600,0),$G$2:$G$10,1),$G$2:$I$10,3),2),"")

　　優(yōu)點：克服 IF() 嵌套只能七層的缺陷，涵蓋整個累進區(qū)間。累進算法資料獨立，便于維護。公式也比較簡潔，可讀性強。

　　缺點：需要借助于輔助列，可移植性不強。

　　【方案三】——數組公式版：

　　B2: {=IF(A2<>"",ROUND(IF(AND(A2>0,A2<=1600),0,SUM(IF((A2-1600>={0,500,2000,5000,20000,40000,60000,80000,100000})+(A2-1600<{500,2000,5000,20000,40000,60000,80000,100000,100000000000})=2,(A2-1600)*{0.05,0.1,0.15,0.2,0.25,0.3,0.35,0.4,0.45}-{0,25,125,375,1375,3375,6375,10375,15375},0))),2),"")}

　　優(yōu)點：同樣克服了 IF 嵌套版不能涵蓋全部九級累進區(qū)間的缺陷，且公式內數據相對容易維護，整個公式維護起來也比較簡單。

　　缺點：數組公式的操作方法比較獨特，每次修改后都要用“ Ctrl+Shift+Enter ”組合鍵加以識別，且可擴展性不如在后臺運行的 VBA 代碼。

　　P.S. ：

　　“數組公式：數組公式對一組或多組值執(zhí)行多重計算，并返回一個或多個結果。數組公式括于大括號 ({ }) 中。按 Ctrl+Shift+Enter 可以輸入數組公式。”

　　【方案四】—— VBA 代碼版：

　　“工具” -- 》“宏” -- 》“ Visual Basic 編輯器” -- 》“插入” -- 》“模塊”

　　============= 復制以下代碼至編輯窗口 ================

'計算個人收入調節(jié)稅 (Individual Income Adjustment Tax)
Function iiatax(x,y)
Dim basicnum As Integer
Dim downnum As Variant, upnum As Variant, ratenum As Variant, deductnum As Variant
If y = 0 Then
basicnum = 1600 '定義中國公民個稅起征點
ElseIf y = 1 Then
basicnum = 4800 '定義外國公民個稅起征點
Else: basicnum = Null
End If
downnum = Array(0, 500, 2000, 5000, 20000, 40000, 60000, 80000, 100000) '定義累進區(qū)間下限
upnum = Array(500, 2000, 5000, 20000, 40000, 60000, 80000, 100000, 100000000) '定義累進區(qū)間上限
ratenum = Array(0.05, 0.1, 0.15, 0.2, 0.25, 0.3, 0.35, 0.4, 0.45) '定義累進稅率
deductnum = Array(0, 25, 125, 375, 1375, 3375, 6375, 10375, 15375) '定義累進速算扣除數
If IsNumeric(x) = False Then
MsgBox ("請檢查計稅工資是否為數值！")
End If
If x < 0 Then
MsgBox ("計稅工資為負，重新輸入！")
End If
If x >= 0 And x < basicnum Then
iiatax = 0
End If
For i = 0 To UBound(downnum)
If x - basicnum > downnum(i) And x - basicnum <= upnum(i) Then
iiatax = Round( ( x - basicnum ) * ratenum(i) - deductnum(i), 2)
End If
Next i
End Function