Campbell CR6 Series, Руководство оператора

Страница: 375 / 690

Section 7. Installation
375
'If it is not a leap year, use this section.
Else
Select Case DOY
Case Is < 32
Month = 1
Date = DOY
Case Is < 60
Month = 2
Date = DOY + -31
Case Is < 91
Month = 3
Date = DOY + -59
Case Is < 121
Month = 4
Date = DOY + -90
Case Is < 152
Month = 5
Date = DOY + -120
Case Is < 182
Month = 6
Date = DOY + -151
Case Is < 213
Month = 7
Date = DOY + -181
Case Is < 244
Month = 8
Date = DOY + -212
Case Is < 274
Month = 9
Date = DOY + -243
Case Is < 305
Month = 10
Date = DOY + -273
Case Is < 336
Month = 11
Date = DOY + -304
Case Is < 366
Month = 12
Date = DOY + -334
EndSelect
EndIf
EndSub
'//////////////////////////// PROGRAM ////////////////////////////
BeginProg
StationID = 4771
Scan (1,Sec, 3, 0)
'/////////////////Measurement Section////////////////////////
'PulseCount(KWH_In, 1, 1, 2, 0, 1, 0) 'Activate this line in working program
KWH_In = 4.5 'Simulation -- delete this line from working program
'PulseCount(KVarH_I, 1, 2, 2, 0, 1, 0) 'Activate this line in working program
KVarH_I = 2.3 'Simulation -- delete this line from working program