分段函数灵活轻巧的解决办法

makelot

yynrzwh 发表于 2024-4-26 16:21

非常感谢，不过您的结果也不正确，忘了累加。另外 Option Base 1 时报错！

makelot

grf1973 发表于 2024-4-26 16:22
楼主原来代码虽然逻辑很清晰，但一旦计费标准发生改变，代码改变量很大。

这个评论很中肯，非常感谢！

grf1973

makelot 发表于 2024-4-26 20:37
非常感谢！您的思路很好，但是结果不正确，麻烦您再完善一下，多谢！

我跟你原来的函数同步测试过，好像没问题啊

一招秒杀

一个简单的公式，全部搞定，附了一系列测试数据，有图有真相。

yjh_27

makelot 发表于 2024-4-26 20:37
非常感谢！您的思路很好，但是结果不正确，麻烦您再完善一下，多谢！

v = 50 /10000  '每件50元必须交

tcdatongye

Sub myCostTest()
  Debug.Print 分段记费(2010)
End Sub
Function 分段记费(s) '万元输入，结果为元。
y = IIf(s > 0, 50, 0)
arr = Array(0, 1, 10, 20, 50, 100, 200, 500, 1000, 2000, -1)
brr = Array(0, 250, 200, 150, 100, 90, 80, 70, 60, 50, -1)
   For i = 0 To UBound(arr) - 1
     If s > arr(i + 1) And arr(i + 1) <> -1 Then
       y = y + (arr(i + 1) - arr(i)) * brr(i)
       ElseIf s > arr(i) Or brr(0) = 0 Then
       分段记费 = y + (s - arr(i)) * brr(i)
       Exit Function
     End If
   Next i
End Function

makelot

一招秒杀 发表于 2024-4-26 22:42
一个简单的公式，全部搞定，附了一系列测试数据，有图有真相。

非常感谢！不过貌似您的公式不正确，比方说当诉讼请求金额为16万时，诉讼费应该为3500元才对。

micch

[url=通过学习个税公式，理解超额累进公式计算过程 https://club.excelhome.net/thread-1469239-1-1.html (出处: ExcelHome技术论坛)]超额累进[/url]

学函数的时候，学过超额累进。可以有通用的求解过程，函数看上去比较复杂，不过基础规则不变的话，转为代码比函数好写

makelot

tcdatongye 发表于 2024-4-27 09:20
Sub myCostTest()
  Debug.Print 分段记费(2010)
End Sub

非常感谢！测试结果没问题，只是当 Option Base 1 时下标越界。

tcdatongye

删除Option Base 1 ，或者i=1即可。