万能个人所得税公式，一个自定义函数，顶32个公式

wangtx218 · 发表于 2011-8-26 18:30

本帖最后由 wangtx218 于 2011-9-7 15:37 编辑

受网上的朋友启发，是谁我忘了，参考的代码在6楼，在此先谢了

海婷 · 发表于 2011-8-26 19:09

本帖最后由海婷于 2011-8-26 19:11 编辑

谢谢分享 ,

qunzi1973 · 发表于 2011-8-26 22:00

{:soso_e100:}下载了，谢谢！

gun44 · 发表于 2011-8-29 10:41

是不是受我启发的？http://club.excelhome.net/thread-702497-1-1.html{:soso_e113:}

gun44 · 发表于 2011-8-29 10:42

我看你也回复过我的帖子。

wangtx218 · 发表于 2011-8-29 11:02

本帖最后由 wangtx218 于 2011-8-31 19:51 编辑

gun44 发表于 2011-8-29 10:41
是不是受我启发的？http://club.excelhome.net/thread-702497-1-1.html

不是的！我参考的代码：

Function GeShui(ShouRu As Double, FeiYong As Double, Optional LeiBie As Integer = 1)

'个人所得税函数，ShouRu为应税收入，FeiYong为当地费用扣除标准

'LeiBie为选择参数，1为计算正常月度个人所得税,2为年终奖，-1为税后收入倒算个税，-2为年终奖税后收入倒算个税

Dim FenJie, ShuiLv, SuSuan

FenJie = Array(0, 500, 2000, 5000, 20000, 40000, 60000, 80000, 100000) '收入分界

ShuiLv = Array(0.05, 0.1, 0.15, 0.2, 0.25, 0.3, 0.35, 0.4, 0.45) '各档税率

SuSuan = Array(0, 25, 125, 375, 1375, 3375, 6375, 10375, 15375) '各档扣除数

If FeiYong < 0 Then FeiYong = 0

ShouRu = ShouRu - FeiYong

If ShouRu <= 0 Then

GeShui = 0

Exit Function

End If

If LeiBie = 1 Then

For i = 8 To 0 Step -1

If ShouRu > FenJie(i) Then

GeShui = ShouRu * ShuiLv(i) - SuSuan(i)

Exit For

End If

For i = 8 To 0 Step -1

If ShouRu / 12 > FenJie(i) Then

GeShui = ShouRu * ShuiLv(i) - SuSuan(i)

Exit For

End If

For i = 8 To 0 Step -1

If ShouRu > FenJie(i) - FenJie(i) * ShuiLv(i) + SuSuan(i) Then

GeShui = (ShouRu * ShuiLv(i) - SuSuan(i)) / (1 - ShuiLv(i))

Exit For

End If

For i = 8 To 0 Step -1

If ShouRu > FenJie(i) * 12 - GeShui(FenJie(i) * 12, 0, 2) Then

GeShui = (ShouRu * ShuiLv(i) - SuSuan(i)) / (1 - ShuiLv(i))

Exit For

End If

GeShui = Round(GeShui, 2)

End Function

唐僧二代 · 发表于 2011-8-31 17:37

{:soso_e100:}

sunxh · 发表于 2011-8-31 22:59

谢谢分享！

jians0529 · 发表于 2011-9-1 10:36

不錯,謝謝分享

runaduck · 发表于 2011-9-2 23:48

不錯,謝謝分享

		自动登录	找回密码
密码			免费注册

[分享] 万能个人所得税公式，一个自定义函数，顶32个公式