やぁヌシだよ♪

今日は電気・ガス・水道の使用量から

請求金額を計算するツールを

開発してました・・・

世帯人数から使用量の算出するやつとか

家計の項目の割合の黄金比とやら・・・

タイトルにある

Kepco関数は

エクセルで使える関数です

ただし毎月変動する費用があるため

24年1月適用分の早見表に対応してるのみです

概算でよければ十分に使えると思います

メモ残しておきます・・・

Function Kepco(kWh As Double) As Double

Dim baseCharge As Double

Dim powerCharge As Double

Dim renewableEnergyFee As Double

Dim fuelAdjustmentFee As Double

' 基本料金

baseCharge = 433.41

' 電力量料金の計算

If kWh <= 15 Then

powerCharge = 0

ElseIf kWh <= 120 Then

powerCharge = (kWh - 15) * 20.31

ElseIf kWh <= 300 Then

powerCharge = (120 - 15) * 20.31 + (kWh - 120) * 25.71

Else

powerCharge = (120 - 15) * 20.31 + (180) * 25.71 + (kWh - 300) * 28.7

End If

' 再生可能エネルギー発電促進賦課金

renewableEnergyFee = kWh * 1.4

' 燃料費調整額

fuelAdjustmentFee = -18.84 + Max(0, kWh - 15) * -1.26

' 総請求金額

Kepco = baseCharge + powerCharge + renewableEnergyFee + fuelAdjustmentFee

End Function

' Max 関数（VBAにはMax関数がないため、定義する）

Function Max(ByVal num1 As Double, ByVal num2 As Double) As Double

If num1 > num2 Then

Max = num1

Else

Max = num2

End If

End Function