Campbell CR800 Series - Page 297

Section 7. Installation
297
'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
'If it is a leap year, use this section.
If (LeapYear = True) Then
Select Case DOY
Case Is < 32
Month = 1
Date = DOY
Case Is < 61
Month = 2
Date = DOY + -31
Case Is < 92
Month = 3
Date = DOY + -60
Case Is < 122
Month = 4
Date = DOY + -91
Case Is < 153
Month = 5
Date = DOY + -121
Case Is < 183
Month = 6
Date = DOY + -152
Case Is < 214
Month = 7
Date = DOY + -182
Case Is < 245
Month = 8
Date = DOY + -213
Case Is < 275
Month = 9
Date = DOY + -244