[已解决]求自定义函数代码

chengbh

高手进来看一看啦，需要实现的功能为：
计算A物品的租金，其规则为，第0到第50天免费，第51天道地100天每天10元，第101天到第160天每天20元，超过160天之后的部分每天50元。
要求自定义的函数的参数为两个，第一个参数为开始租的第一天，第二个参数为截止计算租金的那一天，如
rent（2012-01-01,2012-02-01）=0

最佳答案

月排行榜 / 总排行榜

Benol

2012-6-15 19:44

这样的问题用VBA有点太牛刀小用了，简单的公式就可以了。
假设，A1为起始日期，B1为结束日期，

1. =SUM(TEXT((B1-A1)-{158,99,49,0},"0;!0")*{30,10,10,0})

复制代码

我猜2楼有点误会楼主意思了，而且临界点的处理也不太对。

跳转到最佳答案楼层

Select

1. 
   
2. Sub a()
   
3.     MsgBox b("2012-5-1", "2012-6-1")
   
4. End Sub
   
5. 
   
6. Function b(x As Date, y As Date) As Integer
   
7.     Select Case y - x
   
8.     Case 0 To 50
   
9.         b = 10
   
10.     Case 51 To 100
    
11.         b = 20
    
12.     Case 101 To 160
    
13.         b = 20
    
14.     Case Else
    
15.         b = 50
    
16.     End Select
    
17. End Function

复制代码

chengbh

Select 发表于 2012-6-15 17:37

内容大哥，你没理解意思。假设是第102天，则租金为50*10+20*2

Benol

这样的问题用VBA有点太牛刀小用了，简单的公式就可以了。
假设，A1为起始日期，B1为结束日期，

1. =SUM(TEXT((B1-A1)-{158,99,49,0},"0;!0")*{30,10,10,0})

复制代码

我猜2楼有点误会楼主意思了，而且临界点的处理也不太对。

Select

谢谢Benol提醒！
b的免费和10元，我搞错了。
说的是，这本是函数的活，不如直接用函数。学习

Sub a()
    MsgBox b("2012-5-1", "2012-6-1")
End Sub
Function b(x As Date, y As Date) As Integer
    Select Case y - x
    Case 0 To 50
        b = 0
    Case 51 To 100
        b = 10
    Case 101 To 160
        b = 20
    Case >160
        b = 50
    End Select
End Function