2

わかりましたので、ifステートメントでレートを計算しています

$2 kWh +
0. 最初の 150 kWh/kW @ $0.4

  1. 次の 150 kWh/kW @ $0.25

  2. 次の 150 kWh/kW @ $0.10

  3. 追加 kWh @ $0.05

3列にしたい

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

  • kWh - 価格 (kWprice

  • kWh - コスト (kWcost

Use は、彼らが使用する Kw の数になります。価格は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 ドルの基本料金 + kWh レート (4 つの価格設定) があることを意味すると仮定すると、使用量を与えるとコストが得られる関数がここにあります。料金は 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 に答える