首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >问答首页 >VBA -如何计算分层值

VBA -如何计算分层值
EN

Stack Overflow用户
提问于 2016-11-22 15:13:54
回答 1查看 305关注 0票数 0

我想弄清楚我们要收多少钱。我们所处理的公司正在使用分层定价策略,根据我们储存设备的天数来收取更多的费用。

分级金额如下:第1-4天= $100,第5-8天= $150,日9+ = $200。我需要计算每天的金额。所以,如果租金是3天,我需要计算3天,按100/天=300美元计算。如果租房时间是8天,那么我需要计算前4天的总租金为400美元+接下来的4天,每个150天= 600美元,总计1000美元。

我有几天的数字。我怎样才能从租用天数中获得总成本?

EN

回答 1

Stack Overflow用户

回答已采纳

发布于 2016-11-22 15:24:46

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

代码语言:javascript
运行
复制
    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
票数 1
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/40745434

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档