2

好的，所以我正在使用 if 语句计算费率

$2 kWh +
0。前 150 kWh/kW @ $0.4

  1. 接下来每千瓦 150 千瓦时 @ 0.25 美元

  2. 接下来每千瓦 150 千瓦时 @ 0.10 美元

  3. 额外千瓦时 @ $0.05

我想要三排

  • kWh - 使用（kWuse - 50kW、160kW、305kW、500kW、

  • 千瓦时 - 价格 (kWprice

  • 千瓦时 - 成本（kWcost

使用将是他们使用多少千瓦。价格将是 IF 语句。而成本将是两者的计算。

但我需要帮助的只是 Price if 语句。

谢谢，

4

2 回答 2

2

你的意思是这样的吗？

Dim Price as Double
If kwPrice < 150 Then 
    Price = 0.4
ElseIf kwPrice >= 150 And kwPrice <= 300 Then
    Price = 0.25
ElseIf kwPrice > 300 Then
    Price = 0.1
Else
    Price = 0.05
End If

希望这会让你开始。

于 2011-07-22T14:46:14.253 回答
1

假设您的意思是有 2 美元的基本费用 + 千瓦时费率（4 个定价 teirs），那么如果您给它使用，这里有一个函数会给您成本。由于费率固定为 3 层，您已经知道 150、300 和 450 kWh 的成本是多少，所以我在我的函数中使用了它。

有了这个，你只需要 2 列。用法和价格（此公式）。

Function GetCost(ByVal usage As Double) As Double

' $2 kWh base +
'First 150 kWh per kW @ $0.4
'Next 150 kWh per kW @ $0.25
'Next 150 kWh per kW @ $0.10
'Additional kWh @ $0.05

If usage > 450 Then
    GetCost = 114.5 + ((usage - 450) * 0.05)
ElseIf usage > 300 Then
    GetCost = 99.5 + ((usage - 300) * 0.1)
ElseIf usage > 150 Then
    GetCost = 62 + ((usage - 150) * 0.25)
Else
    GetCost = 2 + (usage * 0.4)
End If

End Function
于 2011-07-23T09:30:24.807 回答