Changeset 231 for trunk/SRC/Obsolete/vairdate.pro
- Timestamp:
- 03/19/07 18:15:51 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Obsolete/vairdate.pro
r134 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 5 2 ; … … 8 5 ; sets month, day and year to the corresp values 9 6 ; 10 ; you better use jul2date7 ; you better use <pro>jul2date</pro> 11 8 ; 12 9 ; @obsolete … … 15 12 ; IDL> vdate = vairdate(1755087) 16 13 ; 17 ; @param jdate {in}{required} date en jours juliens 14 ; @param jdate {in}{required} 15 ; date en jours juliens 18 16 ; 19 ; @keyword MENSUEL a activer si on veut pour que les dates dont le jour est 17 ; @keyword MENSUEL 18 ; a activer si on veut pour que les dates dont le jour est 20 19 ; 15 deviennent avec un jour egale a 0. par ex: 21 20 ; 19990115 -> 19990100 22 21 ; 23 ; @keyword ANNUEL a activer si on veut pour que les dates dont le mois est 22 ; @keyword ANNUEL 23 ; a activer si on veut pour que les dates dont le mois est 24 24 ; 6 et dont le jour est 1 deviennent avec un mois et jour egale a 25 25 ; 0. par ex: 26 26 ; 19990601 -> 19990000 27 27 ; 28 ; @keyword _EXTRA used to pass your keywords 28 ; @keyword _EXTRA 29 ; Used to pass keywords 29 30 ; 30 ; @returns vdate date vairmer31 ; 31 ; @returns 32 ; vdate date vairmer plus year, month et day 32 33 ; 33 ; @uses common 34 ; @uses 35 ; common 34 36 ; 35 ; 36 ; @historyJerome Vialard (jv\@lodyc.jussieu.fr)37 ; @history 38 ; Jerome Vialard (jv\@lodyc.jussieu.fr) 37 39 ; 2/7/98 38 40 ; 13/9/1999, Sebastien Masson (smasson\@lodyc.jussieu.fr) … … 41 43 ; tableaux 42 44 ; 43 ; @version $Id$ 45 ; @version 46 ; $Id$ 44 47 ; 45 48 ;- 46 ;------------------------------------------------------------ 47 ;------------------------------------------------------------ 48 ;------------------------------------------------------------ 49 ; 49 50 function vairdate, jdate, ANNUEL = annuel, MENSUEL = mensuel, _EXTRA = ex 50 51 ; … … 52 53 ; 53 54 @common 54 ;------------------------------------------------------------55 55 caldat, jdate, month, day, year, _EXTRA = ex 56 56 index = where(year eq -1)
Note: See TracChangeset
for help on using the changeset viewer.