source: trunk/SRC/ToBeReviewed/CALENDRIER/def_month.pro @ 231

Last change on this file since 231 was 163, checked in by navarro, 18 years ago

header improvements : type of parameters and keywords, default values, spell checking + idldoc assistant (IDL online_help)
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.2 KB
Line 
1;+
2; @file_comments
3;
4;
5; @categories
6;
7;
8; @param TIMAVE
9;
10;
11; @param DATE
12;
13;
14; @returns
15;
16;
17; @uses
18;
19;
20; @restrictions
21;
22;
23; @examples
24;
25;
26; @history
27;
28;
29; @version
30; $Id$
31;
32; @todo seb
33;-
34FUNCTION def_month, timave, date
35;
36; translate month number in string
37;
38;
39  compile_opt idl2, strictarrsubs
40;
41   IF strpos(date, '_') GT -1 THEN date = strmid(date, 0, strpos(date, '_'))
42   CASE strmid(timave, 0, 2) OF
43      '1m': BEGIN
44         CASE strmid(date, strlen(date)-2, 2) OF
45            '01': mn = 'January'
46            '02': mn = 'February'
47            '03': mn = 'March'
48            '04': mn = 'April'
49            '05': mn = 'May'
50            '06': mn = 'June'
51            '07': mn = 'July'
52            '08': mn = 'August'
53            '09': mn = 'September'
54            '10': mn = 'October'
55            '11': mn = 'November'
56            '12': mn = 'December'
57            ELSE: mn = '???'
58         ENDCASE
59      END
60      '3m': BEGIN
61         CASE strmid(date, strlen(date)-2, 2) OF
62            '01': mn = 'DJF'
63            '02': mn = 'MMA'
64            '03': mn = 'JJA'
65            '04': mn = 'SON'
66            ELSE: mn = '???'
67         ENDCASE
68      END
69      ELSE:
70   ENDCASE 
71
72   return, mn
73END
Note: See TracBrowser for help on using the repository browser.