[原创]个税自定义函数（适用新税法）

5454440

<p>Function gs(aa As Range)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'aa为工资总额<br/>Dim xarr(1 To 9), arr<br/>arr = Split("0,1,5,15,55,135,255,415,615", ",")<br/>For i% = 1 To 9<br/>&nbsp;&nbsp; xarr(i) = (aa - 1600) * 0.05 * i - 25 * arr(i - 1)<br/>Next i<br/>gs = Application.Max(xarr, 0)<br/>End Function</p><p><br/></p> nZicRtPx.rar (6.77 KB, 下载次数: 461)

2006-8-16 17:37 上传

点击文件名下载附件
[原创]个税自定义函数（适用新税法）

<br/>

3m-cat

<p>比较有新意</p>

smallfat

学习一下，还不知道怎么用，请问楼主要怎么样才能应用到表格中。谢谢。

[此贴子已经被作者于2006-8-22 17:54:41编辑过]

我菜故我在

<p>怎么不做的祥细点啊　做个完整的表格啊　什么速算啊什么的都做上去看看啊　</p><p>我看不错能得精啊！</p>

xxssww

税务使用的是四舍六入!!!!

zher0321

对阿，做成一张表不就方便了吗

shjlove

<p>楼主，你好！当工资额&lt;41603时,用宏和公式两者计算应交税额的结果是一致的(个别不一致应当是四舍五入时的微小误差所致),当工资额&gt;=41603时,两者计算的应交税额结果不一致,总是宏的结果大于公式计算的结果,请楼主看看是哪方面的错误?</p>

yunli

<strong>个税自定义函数（适用新税法）</strong><div style="PADDING-RIGHT: 0px; MARGIN-TOP: 10px; FONT-SIZE: 13px; OVERFLOW-X: hidden; WIDTH: 97%; WORD-BREAK: break-all; TEXT-INDENT: 24px; LINE-HEIGHT: 180%; HEIGHT: 200px; WORD-WRAP: break-word;"><p>Function gs(aa As Range)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'aa为工资总额<br/>Dim xarr(1 To 9), arr<br/>arr = Split("0,1,5,15,55,135,255,415,615", ",")<br/>For i% = 1 To 9<br/>&nbsp;&nbsp; xarr(i) = (aa - 1600) * 0.05 * i - 25 * arr(i - 1)<br/>Next i<br/>gs = Application.Max(xarr, 0)<br/>End Function</p><p><br/></p></div>

hlk233

<p>很适合啊!</p><p></p>

橙子125

学习了，呵呵