source:
trunk/SRC/Obsolete/jourdsmois.pro
@
325
| Last change on this file since 325 was 325, checked in by pinsard, 17 years ago | |
|---|---|
|
|
| File size: 475 bytes | |
| Rev | Line | |
|---|---|---|
| [2] | 1 | ;+ |
| [232] | 2 | ; |
| [127] | 3 | ; @file_comments |
| [237] | 4 | ; use <pro>daysinmonth</pro> instead |
| [127] | 5 | ; |
| [97] | 6 | ; @obsolete |
| [2] | 7 | ; |
| [118] | 8 | ; @param mois {in}{optional} |
| [127] | 9 | ; |
| [118] | 10 | ; @param annee {in}{optional} |
| 11 | ; | |
| [231] | 12 | ; @history |
| 13 | ; Sebastien Masson (smasson\@lodyc.jussieu.fr) | |
| [97] | 14 | ; June 2005: Sebastien Masson, english version |
| [118] | 15 | ; |
| [231] | 16 | ; @version |
| 17 | ; $Id$ | |
| [118] | 18 | ; |
| [2] | 19 | ;- |
| [9] | 20 | function jourdsmois, mois, annee |
| [114] | 21 | ; |
| 22 | compile_opt idl2, strictarrsubs, obsolete | |
| 23 | ; | |
| [9] | 24 | |
| 25 | case n_params() OF | |
| 26 | 0:return, daysinmonth() | |
| 27 | 1:return, daysinmonth(mois) | |
| 28 | 2:return, daysinmonth(mois, annee) | |
| [2] | 29 | endcase |
| [9] | 30 | |
| [2] | 31 | end |
Note: See TracBrowser
for help on using the repository browser.
