Rockwell Automation 9307 FactoryTalk EnergyMetrix - Manual (Page 144)

FactoryTalk EnergyMetrix Software
144
DemandGenSysInterSummer = Peak(ValueType.RealPowerDemand,
SeasonType.Summer, DayType.WorkingDay,
TimeOfUseType.DemandInterAMSummer)
TestQty = Peak(ValueType.RealPowerDemand, SeasonType.Summer,
DayType.WorkingDay, TimeOfUseType.DemandInterPMSummer)
If TestQty > DemandGenSysInterSummer Then
DemandGenSysInterSummer = TestQty
rem hide this line item in the report output
Visible = False
 Generation System Demand
The second line item determines the largest dollar amount among the various demand
values. If the report period includes days in both seasons, the predominate season
determines the charge. This line items uses global variables assigned in the previous
line item. Recall that Quantity, Charge, RatePerUnit and Unit are the pre-defined
report output variables.
Dim TestQty As Double
Dim TestCharge
Unit = GetUnit(ValueType.RealPowerDemand)
Quantity = 0
Rem Determine % of billing period in winter season
PctWinter = 100 * SeasonDayCount (SeasonType.Winter) /
BillingPeriodDayCount
Rem select winter if 50% or more in winter season
Select Case PctWinter
Case < 50 rem Summer season
rem summer peak load
Quantity = DemandGenSysPeakSummer
Charge = Quantity * 8.63
RatePerUnit = 8.63
rem summer intermediate load
TestQty = DemandGenSysInterSummer
TestCharge = TestQty * 6.47
If TestCharge > Charge Then
Charge = TestCharge
Quantity = TestQty
RatePerUnit = 6.47
End If
Case Else
rem Winter peak load
Quantity = DemandGenSysPeakWinter
Charge = Quantity * 4.84
RatePerUnit = 4.84
rem Winter intermediate load
TestQty = DemandGenSysInterWinter
TestCharge = TestQty * 3.63