VBA - 如何计算分层值

-1

我想知道我们会收取多少存储空间。我们正在处理的公司正在使用分层定价策略，根据我们存储设备的天数来收取更多费用。VBA - 如何计算分层值

分级金额是这些：第1-4天= 100美元，第5-8天= 150美元，第9天+ = 200美元。我将需要计算每天的金额。所以，如果出租3天，我需要以100 /天= 300美元计算3天。如果租金为8天，那么我需要计算前4天的总价为400美元+未来4天的150美元= 600美元，总价为1000美元。

我有一个天数的计数。如何从使用的租用天数中获得总成本？

来源

2016-11-22 Edward Rhoades

4 + 3 = 7不是8不应该总数是1000 4和4？ –

如果你有兴趣，也可以用公式完成。 –

难道你不能一次存放4天，然后续约？总是100美元，那么你会省下一些钱。 :) –

下面将提示输入，并返回一个消息框与答案。另外，你说8天应该返回850，但你的意思是1000？如果不让我知道，我会更新。

Sub calculateCost() 

    Dim intDays As Variant 
    Dim dblCost As Double 
    intDays = InputBox("Please type in number of days") 

    If Not IsNumeric(intDays) Then 
     MsgBox "Please type only numbers" 
     Exit Sub 
    End If 

    Select Case intDays 
     Case 1, 2, 3, 4 
      dblCost = intDays * 100 
     Case 5, 6, 7, 8 
      dblCost = 400 + (intDays - 4) * 150 
     Case Is > 8 
      dblCost = 1000 + (intDays - 8) * 200 
     Case Else 
      dblCost = 0 
    End Select 

     MsgBox "Total cost is " & dblCost 
End Sub

来源

2016-11-22 15:24:46 jcarroll

如果这个答案帮助你，请考虑[接受它]（http://meta.stackexchange.com/questions/5234/how-does-accepting-an-answer-work）。接受答案奖励贡献者，并帮助他人找到工作解决方案。 –

你是对的。感谢您仔细检查我的结果。我已经更新了这个问题。 –

VBA - 如何计算分层值

回答

相关问题