Changeset 118 for trunk/SRC/Obsolete/juldate.pro
- Timestamp:
- 06/27/06 17:47:06 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Obsolete/juldate.pro
r114 r118 6 6 ; @obsolete 7 7 ; 8 ; @file_comments gives julian date equivalent of a date in vairmer 9 ; ( yymmdd or yyyymmdd ) format 8 ; @file_comments gives julian date equivalent of a date in vairmer 9 ; ( yymmdd or yyyymmdd ) format 10 10 ; sets month, day and year to the corresp values 11 11 ; … … 13 13 ; 14 14 ; @param vvdate {in} date de la forme yymmdd ou yyyymmdd 15 ; 16 ; @keyword _EXTRA used to pass your keywords 15 17 ; 16 18 ; @uses common.pro vraidate … … 20 22 ; jour julien de l'annee -1. 21 23 ; COMPATIBLE AVEC L'AN 2000 !!!: une date de la forme yymmdd est 22 ; donvertit sous la forme yyyymmdd a l''aide de vraidate.24 ; convertit sous la forme yyyymmdd a l''aide de vraidate. 23 25 ; Attention, les variables globales year, month day sont attribuees 24 26 ; 25 ; @examples 27 ; @examples 26 28 ; IDL> date = juldate(930124) 27 29 ; 28 30 ; @history Jerome Vialard (jv\@lodyc.jussieu.fr) 29 31 ; 2/7/98 32 ; 33 ; @version $Id$ 34 ; 30 35 ;- 31 36 ;------------------------------------------------------------ … … 47 52 mm = month & dd = day & yy = year 48 53 ;------------------------------------------------------------ 49 ndate = n_elements(vdate) 54 ndate = n_elements(vdate) 50 55 if total(mm EQ 0) EQ ndate then mm[*] = 6 51 56 if total(dd EQ 0) EQ ndate then dd[*] = 15
Note: See TracChangeset
for help on using the changeset viewer.