EXCEL计算个人所得税税金.docVIP

下载本文档

5
0
约7.1千字
约 9页
2017-08-22 发布于河南
举报
版权申诉

EXCEL计算个人所得税税金.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

EXCEL计算个人所得税税金--工资薪金年终奖（自定义函数） ??? 一、工资薪金收入计算税金 ??? （一）函数功能：由工资薪金收入计算个人应缴税金。可以选择新税法或旧税法，可以选择按税前收入或税后收入。 ????（二）函数完整代码如下：? Option ExplicitOption Base 1Public Function YgzTax(Sr As Double, Optional Lx As Integer = 1, Optional Kce As Double)? 功能：由月工资薪金收入计算个人所得税。可按新旧税法、税前税后收入计算。? Sr:月收入,必选。 Kce:扣除额,可选,默认3500。? Lx:类型，1＝新税法由税前月工资计算个税；2＝新税法由税后月工资计算个税；3＝旧税法由税前月工资计算个税；4＝旧税法由税后月工资计算个税。? 参数自动四舍五入后保留2位小数计算。? 参数均为数值型，可以是常量，也可以是表达式，但均必须大于等于0，否则，返回错误值。? 使用方法：类似EXCEL内置函数。参数可选单元格，也可直接输入常量、表达式，如：抵扣费用4800，从参数中直接输入。? 依据：1.《中华人民共和国个人所得税法》（中华人民共和国主席令第48号，2011年9月1日起施行）? ????? 2.《中华人民共和国个人所得税法实施条例》(中华人民共和国国务院令第600号，2011年9月1日起施行)? ????? 3.《中华人民共和国个人所得税法》（中华人民共和国主席令第85号，2007年12月29日）? ????? 4.《中华人民共和国个人所得税法实施条例》（中华人民共和国国务院令第519号，2008年2月18日）。???? If Sr 0 Then???? YgzTax = 工薪收入负数？???? Exit Function? End If? If (Not VBA.IsMissing(Kce)) And Kce 0 Then 扣除额是否赋值???? YgzTax = 扣除额负数？???? Exit Function? End If? If Lx 1 And Lx 2 And Lx 3 And Lx 4 Then???? YgzTax = 类型参数错误???? Exit Function? End If ? Dim Sl, Sskc, SqMax, SqMin, ShMax, ShMin As Variant? Dim Nssde As Double 纳税所得额? Dim i, js As Integer?? If Lx = 1 Or Lx = 2 Then 新税法???? Sl = Array(0.03, 0.1, 0.2, 0.25, 0.3, 0.35, 0.45)? 税率???? Sskc = Array(0, 105, 555, 1005, 2755, 5505, 13505) 速算扣除???? SqMax = Array(1500, 4500, 9000, 35000, 55000, 80000) 税前收入上限???? ShMax = Array(1455, 4155, 7755, 27255, 41255, 57505) 税后收入上限???? js = 7 七级税率???? If VBA.IsMissing(Kce) Then Kce = 3500 扣除额未赋值? Else 旧税法???? Sl = Array(0.05, 0.1, 0.15, 0.2, 0.25, 0.3, 0.35, 0.4, 0.45)???? Sskc = Array(0, 25, 125, 375, 1375, 3375, 6375, 10375, 15375)???? SqMax = Array(500, 2000, 5000, 20000, 40000, 60000, 80000, 100000)????? ShMax = Array(475, 1825, 4375, 16375, 31375, 45375, 58375, 70375)????? js = 9???? If VBA.IsMissing(Kce) Then Kce = 2000? End If?? Sr = VBA.Format(Sr, 0.00)? Kce = VBA.Format(Kce, 0.00)? Nssde = 1 * (Sr - Kce)?? If Nssde = 0 Then???? YgzTax = 0???? Exit Function? End If?? If Lx = 1 Or Lx = 3 Then 税前月工资?