Campbell Scientific CR1000KD CR800 and CR850 Measurement and Control Systems - Page 217

Section 7. Installation '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 217