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
Summary of Contents for CR1000
Page 2: ......
Page 4: ......
Page 6: ......
Page 32: ......
Page 36: ......
Page 38: ......
Page 40: ......
Page 60: ...Section 4 System Quickstart Figure 16 PC200W View Line Graph 60 ...
Page 96: ......
Page 98: ...98 ...
Page 302: ......
Page 453: ...Section 8 Operation Figure 115 Using the Keyboard Display 453 ...
Page 456: ...Section 8 Operation Figure 118 Real Time Custom 456 ...
Page 457: ...Section 8 Operation 8 8 1 3 Final Memory Tables Figure 119 Final Memory Tables 457 ...
Page 458: ...Section 8 Operation 8 8 2 Run Stop Program Figure 120 Run Stop Program 458 ...
Page 460: ...Section 8 Operation Figure 122 File Edit 460 ...
Page 461: ...Section 8 Operation 8 8 4 PCCard Memory Card Display Figure 123 PCCard CF Card Display 461 ...
Page 478: ......
Page 506: ......
Page 536: ......
Page 636: ......
Page 642: ......
Page 644: ......
Page 676: ......
Page 677: ......