代码计个税

张雄友 · 发表于 2013-12-11 20:07

本帖最后由张雄友于 2013-12-11 20:09 编辑

代码计个税.

个税调整后起征点改为3500，7级超额累进税率如下：
　　1，全月应纳税额不超过1500元的，税率为3%。
　　2，全月应纳税额超过1500元至4500元的部分，税率为10%。
　　3，全月应纳税额超过4500元至9000元的部分，税率为20%。
　　4，全月应纳税额超过9000元至35000元的部分，说率为25%。
　　5，全月应纳税额超过35000元至55000元的部分，税率为30%。
　　6，全月应纳税额超过55000元至80000元的部分，税率为35%。
　　7，全月应纳税额超过80000元的部分，税率为45%。

张雄友 · 发表于 2013-12-11 21:11

能否修改下？

excelvlookup · 发表于 2013-12-11 22:40

这是一个数学问题．代码就是写一个数学公式．没一点价值

zhaogang1960 · 发表于 2013-12-11 22:54

你要自定义函数？如果是：

Function GS(应纳税所得额 As Currency, Optional 扣除基数 As Currency) As Currency
Dim JE As Currency
If 应纳税所得额 <= 0 Then Exit Function
If 扣除基数 = 0 Then 扣除基数 = 3500 '2011年7月16日更改
JE = 应纳税所得额 - 扣除基数
If JE > 0 Then
Select Case JE
Case Is <= 1500
GS = JE * 0.03
Case Is <= 4500
GS = JE * 0.1 - 105
Case Is <= 9000
GS = JE * 0.2 - 555
Case Is <= 35000
GS = JE * 0.25 - 1005
Case Is <= 55000
GS = JE * 0.3 - 2755
Case Is <= 80000
GS = JE * 0.35 - 5505
Case Is > 80000
GS = JE * 0.45 - 13505
End Select
GS = Application.WorksheetFunction.Round(GS, 2)
End If
End Function

复制代码

张雄友 · 发表于 2013-12-12 13:12

zhaogang1960 发表于 2013-12-11 22:54
你要自定义函数？如果是：

可以做成 sub 过程？

zhaogang1960 · 发表于 2013-12-12 13:21

张雄友发表于 2013-12-12 13:12
可以做成 sub 过程？

Sub 个税()
Dim arr, i&, gs#, JE#
arr = Range("A2:A" & Range("A65536").End(xlUp).Row)
With Application.WorksheetFunction
For i = 1 To UBound(arr)
JE = arr(i, 1) - 3500
If JE > 0 Then
Select Case JE
Case Is <= 1500
gs = JE * 0.03
Case Is <= 4500
gs = JE * 0.1 - 105
Case Is <= 9000
gs = JE * 0.2 - 555
Case Is <= 35000
gs = JE * 0.25 - 1005
Case Is <= 55000
gs = JE * 0.3 - 2755
Case Is <= 80000
gs = JE * 0.35 - 5505
Case Is > 80000
gs = JE * 0.45 - 13505
End Select
Else
gs = 0
End If
arr(i, 1) = .Round(gs, 2)
Next
End With
[b2].Resize(i - 1) = arr
End Sub

复制代码

zhaogang1960 · 发表于 2013-12-12 13:22

请看附件

用代码代替公式.rar (8.23 KB, 下载次数: 4)

张雄友 · 发表于 2013-12-12 13:34

zhaogang1960 发表于 2013-12-12 13:22
请看附件

当A列只有一个数时，会类型不匹配。

zhaogang1960 · 发表于 2013-12-12 13:46

张雄友发表于 2013-12-12 13:34
当A列只有一个数时，会类型不匹配。

Sub 个税()
Dim arr, brr#(), i&, gs#, JE#
arr = Range("A1:A" & Range("A65536").End(xlUp).Row)
ReDim brr(2 To UBound(arr), 1 To 1)
With Application.WorksheetFunction
For i = 2 To UBound(arr)
JE = arr(i, 1) - 3500
If JE > 0 Then
Select Case JE
Case Is <= 1500
gs = JE * 0.03
Case Is <= 4500
gs = JE * 0.1 - 105
Case Is <= 9000
gs = JE * 0.2 - 555
Case Is <= 35000
gs = JE * 0.25 - 1005
Case Is <= 55000
gs = JE * 0.3 - 2755
Case Is <= 80000
gs = JE * 0.35 - 5505
Case Is > 80000
gs = JE * 0.45 - 13505
End Select
End If
brr(i, 1) = .Round(gs, 2)
Next
End With
[b2].Resize(i - 2) = brr
End Sub

复制代码

zhaogang1960 · 发表于 2013-12-12 13:47

请看附件

用代码代替公式.rar (9.1 KB, 下载次数: 1)

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

[求助] 代码计个税

最新热点 /1