Campbell CR1000 - Page 261

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