source:
trunk/SRC/Obsolete/jourdsmois.pro
@
296
Last change on this file since 296 was 237, checked in by pinsard, 17 years ago | |
---|---|
|
|
File size: 477 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 | ;- |
[231] | 20 | ; |
[9] | 21 | function jourdsmois, mois, annee |
[114] | 22 | ; |
23 | compile_opt idl2, strictarrsubs, obsolete | |
24 | ; | |
[9] | 25 | |
26 | case n_params() OF | |
27 | 0:return, daysinmonth() | |
28 | 1:return, daysinmonth(mois) | |
29 | 2:return, daysinmonth(mois, annee) | |
[2] | 30 | endcase |
[9] | 31 | |
[2] | 32 | end |
Note: See TracBrowser
for help on using the repository browser.