source:
trunk/procs/trans_month.pro
@
2
Last change on this file since 2 was 2, checked in by post_it, 17 years ago | |
---|---|
File size: 344 bytes |
Rev | Line | |
---|---|---|
[2] | 1 | FUNCTION trans_month, month |
2 | ||
3 | CASE month OF | |
4 | 01: mn = 'JAN' | |
5 | 02: mn = 'FEB' | |
6 | 03: mn = 'MAR' | |
7 | 04: mn = 'APR' | |
8 | 05: mn = 'MAY' | |
9 | 06: mn = 'JUN' | |
10 | 07: mn = 'JUL' | |
11 | 08: mn = 'AUG' | |
12 | 09: mn = 'SEP' | |
13 | 10: mn = 'OCT' | |
14 | 11: mn = 'NOV' | |
15 | 12: mn = 'DEC' | |
16 | ELSE: | |
17 | ENDCASE | |
18 | ||
19 | return, mn | |
20 | END |
Note: See TracBrowser
for help on using the repository browser.