分段计费_自定义函数

yjh_27 · 发表于 2013-1-29 01:40

本帖最后由 yjh_27 于 2013-3-29 19:36 编辑

分段计费按使用量不同，单价不同，使用地点不同单价不同：
      1~25    26~50 51~
'价格1 15       30    40
'价格2 25       40    50

做了个自定义函数计算分段费用。

目前只能分三段（需扩展见2楼），地点数可按单价数组定义原则扩展
danjia = [{1,26,51;15,30,40;25,40,50}] '分段按每段最小数记入首行，首列为最小计量单位（如整数则=1）；分段单价记入其他行。

Function fenduanjifei(a, b, Optional danjia = 0, Optional mode = 1)
'danjia = [{1,26,51;15,30,40;25,40,50}] '分段按每段最小数记入首行，首列为最小计量单位（如整数则=1）；分段单价记入其他行。
'区间 1~25    26~50 51~
'             1       26       51                         '递增排列
'价格1 15       30       40
'价格2 25       40       50
'a    已交数
'b    应交数
'a+b 分段数
'mode 价格选择

应用见
· 急求复杂的堆存费计算!急!求高手入

yjh_27 · 发表于 2013-1-29 09:28

本帖最后由 yjh_27 于 2013-2-4 10:10 编辑

改数组

Function fenduanjifei(a, danjia, Optional mode = 1)
'a(1,i) 应交数
'a(2,i) 对应价格行
'danjia 区间价格数组
'danjia = [{1,26,51;15,30,40;25,40,50}] '分段按每段最小数记入首行，首列为最小计量单位（如整数则=1）；分段单价记入其他行。
'分段区间 1~25    26~50 51~
'价格1    15       30    40
'价格2    25       40    50

分段区间、价格种类（地点数）可按单价数组定义原则扩展

'mode 统计选择
' 1 统计总费用
' 2 分段费用
' 1s  统计总费用公式
' 2s  分段费用公式

Betty201005 · 发表于 2013-1-29 11:13

顶!大家都来学习吧!!

Betty201005 · 发表于 2013-1-29 13:43

For i = 4 To r
dao = CDate(Cells(i, 11))
'wei = Cells(i, 10)
duicun = 0
yijiaotian = 0
For ii = 1 To 4
If Cells(i, 11 + ii * 2) = "" Then Exit For
tian = CDate(Cells(i, 11 + ii * 2)) - dao
If duicun = 0 Then tian = tian + 1
wei = Cells(i, 12 + ii * 2) ''到港、移库
If wei = "露天" Then
duicun = duicun + jisuan(yijiaotian, tian, 1)
yijiaotian = yijiaotian + tian
Else
duicun = duicun + jisuan(yijiaotian, tian, 2)
yijiaotian = yijiaotian + tian
End If
dao = CDate(Cells(i, 11 + ii * 2))
Next
tian = CDate(Cells(i, 9)) - dao
If duicun = 0 Then tian = tian + 1
wei = Cells(i, 10) '入库
If wei = "露天" Then
duicun = duicun + jisuan(yijiaotian, tian, 1)
Else
duicun = duicun + jisuan(yijiaotian, tian, 2)
End If
Cells(i, 21) = duicun
Next i

复制代码

请问这段是什么意思?

yjh_27 · 发表于 2013-1-29 14:57

本帖最后由 yjh_27 于 2013-1-29 15:04 编辑

Betty201005 发表于 2013-1-29 13:43
请问这段是什么意思?

For i = 4 To r '循环处理每行数据
dao = CDate(Cells(i, 11))
'wei = Cells(i, 10) '记录堆存位置
duicun = 0 '堆存费
yijiaotian = 0 ’已堆存天数
For ii = 1 To 4 ’处理4次移库
If Cells(i, 11 + ii * 2) = "" Then Exit For
tian = CDate(Cells(i, 11 + ii * 2)) - dao '本次堆存天数
If duicun = 0 Then tian = tian + 1
wei = Cells(i, 12 + ii * 2) ''到港、移库
If wei = "露天" Then
duicun = duicun + jisuan(yijiaotian, tian, 1)
yijiaotian = yijiaotian + tian
Else
duicun = duicun + jisuan(yijiaotian, tian, 2)
yijiaotian = yijiaotian + tian
End If
dao = CDate(Cells(i, 11 + ii * 2))
Next
tian = CDate(Cells(i, 9)) - dao
If duicun = 0 Then tian = tian + 1 '无移库
wei = Cells(i, 10) '入库
If wei = "露天" Then
duicun = duicun + jisuan(yijiaotian, tian, 1)
Else
duicun = duicun + jisuan(yijiaotian, tian, 2)
End If
Cells(i, 21) = duicun
Next i

复制代码

yjh_27 · 发表于 2013-3-31 21:33

本帖最后由 yjh_27 于 2013-3-31 21:34 编辑

应用

8L

求指点。。。该设一个什么样的函数。。。

补充内容 (2013-4-26 12:00):
详细说明见 17L

Bettyexcel · 发表于 2013-7-9 12:32

yjh_27 老师好！

如果当堆存位置为“EG”时，无费用产生，即费用为0。这里应该怎么写？请看附件的表格，谢谢！

yjh_27 · 发表于 2013-5-4 19:50

应用
提成核算问题
4L

yjh_27 · 发表于 2013-5-17 00:38

应用(底薪+提成）
发工资了。可工资表不知道哪个公式才正确. 论坛朋友有帮忙,方法多,可惜结果也多..救命

20L

好002 · 发表于 2013-5-17 10:11

yjh_27 发表于 2013-5-17 00:38
应用(底薪+提成）
发工资了。可工资表不知道哪个公式才正确. 论坛朋友有帮忙,方法多,可惜结果也多..救命 ...

yjh_27老师..谢谢您.

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

[原创] 分段计费_自定义函数