source:
trunk/procs/trans_month.pro
@
12
| Last change on this file since 12 was 2, checked in by post_it, 17 years ago | |
|---|---|
| File size: 344 bytes | |
| Line | |
|---|---|
| 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.
