2019年新个税

xiaocao_ss

谢谢楼上的同志，新年快乐

hkwwcl

wangtx218 发表于 2019-1-1 15:26
你先看看符合你的要求吗！

万分感谢，基本就是这个样子，求模板，感谢大神回复。这几天年终结账繁忙，刚看到，不好意思！！

wangtx218

Function tax(Optional a = 0, Optional b = 0)
'tax(本月累计预缴应纳税所得，上月累计预缴应纳税所得)
Application.Volatile
tax = IIf(gts(a) > gts(b), gts(a) - gts(b), 0)
End Function
Function gts(Optional x = 0, Optional y = 1)
'gts(累计预缴应纳税所得额,一次性应纳税所得额,y=12)
Application.Volatile
i% = 1: b = x / y
For Each c In Array(0, 36000, 144000, 300000, 420000, 660000, 960000)
    If b > c / y Then gts = gts + (x - c / y) * 0.05 * Choose(i, 0.6, 1.4, 2, 1, 1, 1, 2): i = i + 1
Next c
gts = Round(gts + 0.0001, 2)
End Function
Function sr#(Optional aa = 0)
'sr(全部应纳税所得额)
Application.Volatile
Dim arr2#, tax#, min#, mm#
Dim i%: min = 999999999
arr1 = Array(0, 36000, 144000, 300000, 420000, 660000, 960000)
For i = 0 To 6
    arr2 = aa - arr1(i)
    mm = gts(arr1(i)) + gts(arr2, 12)
    If mm < min Then
       min = mm: sr = arr1(i)
    End If
    mm = gts(arr1(i), 12) + gts(arr2)
    If mm < min Then
       min = mm: sr = arr2
    ElseIf mm = min Then
        If sr < arr2 Then
           sr = arr2
        End If
    End If
Next
End Function

478834

谢谢大神，真的减轻了我们财务人员很大工作量

hkwwcl

wangtx218 发表于 2019-1-3 11:07
Function tax(Optional a = 0, Optional b = 0)
'tax(本月累计预缴应纳税所得，上月累计预缴应纳税所得)
...

感谢感谢，万分感谢，明天上班赶紧研究下，帮大忙了

子持莲华

膜拜大神。

ppkanka

谢谢楼主，很有用、很好用

wwwcom

大神：如果一个公司有几百号人，每个月人员有增有减，且第二个月发放的名单顺序与第一个月的不一样。上月累计的数据用函数是可以带出来，但是计算速度就会越来越慢了，能不能请您费神用VBA完善一下.

wangtx218

wwwcom 发表于 2019-1-10 11:04
大神：如果一个公司有几百号人，每个月人员有增有减，且第二个月发放的名单顺序与第一个月的不一样。上月累 ...

操作方法：
1、先复制粘贴数傎
2、剪、插调正顺序
3、新增、删除名单
我公司500人左右，用起来可以的

wangtx218

给十八楼朋友！