[原创]个人所得税函数（合成版）

lanyuu

<p>不太会用vba，因为常用所以写了个简单的函数，</p><p>希望大家指正！</p><p></p><p></p><p>Function ptax(income As Double, deduction As Double, Optional function_num As Integer = 0)<br/>'个人所得税函数。income为收入数，deduction为当月费用扣除标准；function_num&nbsp; 开关参数默认为0，计算普通个人所得税，1为年终奖金，-1为税后收入反算个人所得税。<br/>'年终奖的扣除标准现在为当地费用扣除标准减去当月收入<br/>If income &lt; 0 Then income = 0<br/>If deduction &lt; 0 Then deduction = 0</p><p>&nbsp;&nbsp;&nbsp; Select Case function_num<br/>&nbsp;&nbsp;&nbsp;&nbsp; Case 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; income = income - deduction<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If income / 12 &lt;= 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 0 &lt; income / 12 And income / 12 &lt;= 500 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.05<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 500 &lt; income / 12 And income / 12 &lt;= 2000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.1 - 25<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 2000 &lt; income / 12 And income / 12 &lt;= 5000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.15 - 125<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 5000 &lt; income / 12 And income / 12 &lt;= 20000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.2 - 375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 20000 &lt; income / 12 And income / 12 &lt;= 40000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.25 - 1375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 40000 &lt; income / 12 And income / 12 &lt;= 60000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.3 - 3375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 60000 &lt; income / 12 And income / 12 &lt;= 80000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.35 - 6375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 80000 &lt; income / 12 And income / 12 &lt;= 100000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.4 - 10375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf income / 12 &gt; 100000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.45 - 15375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; Case -1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If income &lt;= 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 0 &lt; income And income &lt;= 475 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income / 0.95 * 0.05<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 475 &lt; income And income &lt;= 1825 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = (income - 25) / 0.9 * 0.1 - 25<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 1825 &lt; income And income &lt;= 4375 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = (income - 125) / 0.85 * 0.15 - 125<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 4375 &lt; income And income &lt;= 16375 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = (income - 375) / 0.8 * 0.2 - 375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 16375 &lt; income And income &lt;= 31375 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = (income - 1375) / 0.75 * 0.25 - 1375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 31375 &lt; income And income &lt;= 45375 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = (income - 3375) / 0.7 * 0.3 - 3375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 45375 &lt; income And income &lt;= 58375 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = (income - 6375) / 0.65 * 0.35 - 6375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 58375 &lt; income And income &lt;= 70375 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = (income - 10375) / 0.6 * 0.4 - 10375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf income &gt; 70375 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = (income - 15375) / 0.55 * 0.45 - 15375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; Case Else<br/>&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; income = income - deduction<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If income &lt;= 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 0 &lt; income And income &lt;= 500 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.05<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 500 &lt; income And income &lt;= 2000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.1 - 25<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 2000 &lt; income And income &lt;= 5000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.15 - 125<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 5000 &lt; income And income &lt;= 20000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.2 - 375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 20000 &lt; income And income &lt;= 40000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.25 - 1375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 40000 &lt; income And income &lt;= 60000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.3 - 3375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 60000 &lt; income And income &lt;= 80000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.35 - 6375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf 80000 &lt; income And income &lt;= 100000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.4 - 10375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf income &gt; 100000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = income * 0.45 - 15375<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptax = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; End Select<br/>ptax = Round(ptax, 2)<br/>End Function</p><p><br/>&nbsp;</p><p> bp9zgJn9.rar (8.95 KB, 下载次数: 41)

2008-5-29 13:53 上传

点击文件名下载附件
[原创]个人所得税函数（合成版）

</p><p>加载宏，密码为1<br/></p>

little-key

这个有点太长了。

lanyuu

<p>主要是实用性，想到哪儿写到哪儿，不太懂编程</p><p>小函数，也不动用考虑效率问题</p>

zxhmfk

<p>错误了...计算年终奖金个人所得税的方法与政策严重不符合</p>

[此贴子已经被作者于2008-7-4 22:34:17编辑过]

chuxiaojing

楼主写这么长真不容易，佩服

da001

<p>看不懂，我也不懂宏这个东东呢？怎么学呢？</p>