Campbell CR850 - Page 217

Section 7. Installation
217
'One Minute Data Table
DataTable(OneMinTable,true,-1)
OpenInterval 'sets interval same as found in CR510
DataInterval(0,1,Min,10)
Totalize(1, KWHH,FP2,0)
Sample(1, KWHHold,FP2)
Totalize(1, KvarH,FP2,0)
Sample(1, KVarHold,FP2)
Sample(1, StationID,FP2)
EndTable
'Clock Set Record Data Table
DataTable(ClockSetRecord,True,-1)
Sample(7,ClkSet(),FP2)
EndTable
'Subroutine to convert date formats (day-of-year to month and date)
Sub DOY2MODAY
'Store Year, DOY, Hour, Minute and Second to Input Locations.
Year = InStringSplit(1)
DOY = InStringSplit(2)
Hour = InStringSplit(3)
Minute = InStringSplit(4)
Second = InStringSplit(5)
uSecond = 0
'Check if it is a leap year:
'If Year Mod 4 = 0 and Year Mod 100 <> 0, then it is a leap year OR
'If Year Mod 4 = 0, Year Mod 100 = 0, and Year Mod 400 = 0, then it
'is a leap year
LeapYear = 0 'Reset leap year status location
LeapMOD4 = Year MOD 4
LeapMOD100 = Year MOD 100
LeapMOD400 = Year MOD 400
If LeapMOD4 = 0 Then Leap4 = True Else Leap4 = False
If LeapMOD100 = 0 Then Leap100 = True Else Leap100 = False
If LeapMOD400 = 0 Then Leap400 = True Else Leap400 = False
If Leap4 = True Then
LeapYear = True
If Leap100 = True Then
If Leap400 = True Then
LeapYear = True
Else
LeapYear = False
EndIf
EndIf
Else
LeapYear = False
EndIf