Changeset 97 for trunk/SRC/Obsolete/juldate.pro
- Timestamp:
- 06/09/06 17:18:59 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Obsolete/juldate.pro
r9 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME: juldate 5 ; @file_comments you better use date2jul 6 ; @obsolete 6 7 ; 7 ; OBSOLETE: you better use date2jul 8 ; 9 ; PURPOSE: gives julian date equivalent of a date in vairmer 8 ; @file_comments gives julian date equivalent of a date in vairmer 10 9 ; ( yymmdd or yyyymmdd ) format 11 10 ; sets month, day and year to the corresp values 12 11 ; 13 ; CATEGORY: bidouilles dates12 ; @categories calendar 14 13 ; 15 ; CALLING SEQUENCE: date = juldate(930124)14 ; @param vvdate {in} date de la forme yymmdd ou yyyymmdd 16 15 ; 17 ; INPUTS:date de la forme yymmdd ou yyyymmdd16 ; @uses common.pro vraidate 18 17 ; 19 ; KEYWORD PARAMETERS: 20 ; 21 ; /VRAIDATE: pour ne pas transformer l''annnee 01 en 1901 22 ; /GRADS: if 1 le year le 49 then year = 2000+year 23 ; if 50 le year le 99 then year = 1900+year 24 ; 25 ; OUTPUTS:date en jour julien 26 ; 27 ; COMONTHON BLOCKS: 28 ; common.pro vraidate 29 ; 30 ; SIDE EFFECTS: 18 ; @returns date en jour julien 31 19 ; l'annee 0 n'existant pas, qd year est nulle on calcule le 32 20 ; jour julien de l'annee -1. … … 35 23 ; Attention, les variables globales year, month day sont attribuees 36 24 ; 37 ; MODIFICATION HISTORY: Jerome Vialard (jv@lodyc.jussieu.fr) 38 ; 2/7/98 25 ; @examples 26 ; IDL> date = juldate(930124) 27 ; 28 ; @history Jerome Vialard (jv\@lodyc.jussieu.fr) 29 ; 2/7/98 39 30 ;- 40 31 ;------------------------------------------------------------ … … 63 54 end 64 55 ;------------------------------------------------------------ 65
Note: See TracChangeset
for help on using the changeset viewer.