source: trunk/CALENDRIER/def_month.pro @ 2

Last change on this file since 2 was 2, checked in by opalod, 22 years ago

Initial revision
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 981 bytes
Line 
1FUNCTION def_month, timave, date
2;
3; translate month number in string
4;
5   IF strpos(date, '_') GT -1 THEN date = strmid(date, 0, strpos(date, '_'))
6   CASE strmid(timave, 0, 2) OF
7      '1m': BEGIN
8         CASE strmid(date, strlen(date)-2, 2) OF
9            '01': mn = 'January'
10            '02': mn = 'February'
11            '03': mn = 'March'
12            '04': mn = 'April'
13            '05': mn = 'May'
14            '06': mn = 'June'
15            '07': mn = 'July'
16            '08': mn = 'August'
17            '09': mn = 'September'
18            '10': mn = 'October'
19            '11': mn = 'November'
20            '12': mn = 'December'
21            ELSE: mn = '???'
22         ENDCASE
23      END
24      '3m': BEGIN
25         CASE strmid(date, strlen(date)-2, 2) OF
26            '01': mn = 'DJF'
27            '02': mn = 'MMA'
28            '03': mn = 'JJA'
29            '04': mn = 'SON'
30            ELSE: mn = '???'
31         ENDCASE
32      END
33      ELSE:
34   ENDCASE 
35
36   return, mn
37END
Note: See TracBrowser for help on using the repository browser.