;+
;
; @file_comments
; gives julian date equivalent of a date in vairmer
; ( yymmdd or yyyymmdd ) format
; sets month, day and year to the corresp values
;
; you better use date2jul
;
; @obsolete
;
; @categories
; Calendar
;
; @param vvdate {in}
; date de la forme yymmdd ou yyyymmdd
;
; @keyword _EXTRA
; Used to pass keywords
;
; @uses
; common
; vraidate
;
; @returns
; date en jour julien
; l'annee 0 n'existant pas, qd year est nulle on calcule le
; jour julien de l'annee -1.
; COMPATIBLE AVEC L'AN 2000 !!!: une date de la forme yymmdd est
; convertit sous la forme yyyymmdd a l''aide de vraidate.
; Attention, les variables globales year, month day sont attribuees
;
; @examples
;
; IDL> date = juldate(930124)
;
; @history
; Jerome Vialard (jv\@lodyc.jussieu.fr)
; 2/7/98
;
; @version
; $Id$
;
;-
function juldate, vvdate, _EXTRA=ex
;
compile_opt idl2, strictarrsubs, obsolete
;
vdate = vvdate
vdate = vraidate(vdate, _EXTRA = ex)
@common
;------------------------------------------------------------
year=vdate/10000
month=vdate/100 - year*100
day=abs(vdate - year*10000 - month*100)
month = abs(month)
;
mm = month & dd = day & yy = year
;------------------------------------------------------------
ndate = n_elements(vdate)
if total(mm EQ 0) EQ ndate then mm[*] = 6
if total(dd EQ 0) EQ ndate then dd[*] = 15
if total(yy EQ 0) EQ ndate THEN yy[*] = -1
;------------------------------------------------------------
return, julday(mm,dd,yy, _EXTRA = ex)
;------------------------------------------------------------
return, -1
end
;------------------------------------------------------------