pro get_date, dte, in_date, OLD = old, TIMETAG = timetag ;+ ; NAME: ; GET_DATE ; PURPOSE: ; Return the (current) UTC date in CCYY-MM-DD format for FITS headers ; EXPLANATION: ; This is the format required by the DATE and DATE-OBS keywords in a ; FITS header. ; ; CALLING SEQUENCE: ; GET_DATE, FITS_date, [ in_date, /OLD, /TIMETAG ] ; OPTIONAL INPUTS: ; in_date - string (scalar or vector) containing dates in IDL ; systime() format (e.g. 'Tue Sep 25 14:56:14 2001') ; OUTPUTS: ; FITS_date = A scalar character string giving the current date. Actual ; appearance of dte depends on which keywords are supplied. ; ; No Keywords supplied - dte is a 10 character string with the format ; CCYY-MM-DD where represents a calendar year, the ; ordinal number of a calendar month within the calendar year, ; and
the ordinal number of a day within the calendar month. ; /TIMETAG set - dte is a 19 character string with the format ; CCYY-MM-DDThh:mm:ss where represents the hour in the day, ; the minutes, the seconds, and the literal 'T' the ; ISO 8601 time designator ; /OLD set - dte is an 8 character string in DD/MM/YY format ; ; INPUT KEYWORDS: ; /TIMETAG - Specify the time to the nearest second in the DATE format ; /OLD - Return the DATE format formerly (pre-1997) recommended for FITS ; Note that this format is now deprecated because it uses only ; a 2 digit representation of the year. ; EXAMPLE: ; Add the current date to the DATE keyword in a FITS header,h ; ; IDL> GET_DATE,dte ; IDL> sxaddpar, h, 'DATE', dte, 'Date header was created' ; ; NOTES: ; (1) A discussion of the DATExxx syntax in FITS headers can be found in ; http://www.cv.nrao.edu/fits/documents/standards/year2000.txt ; ; (2) Those who wish to use need further flexibility in their date ; formats (e.g. to use TAI time) should look at Bill Thompson's time ; routines in http://sohowww.nascom.nasa.gov/solarsoft/gen/idl/time ; ; PROCEDURES USED: ; DAYCNV - Convert Julian date to Gregorian calendar date ; REVISION HISTORY: ; Written W. Landsman March 1991 ; Major rewrite to write new DATExxx syntax W. Landsman August 1997 ; Converted to IDL V5.0 W. Landsman September 1997 ; Work after year 2000 even with /OLD keyword W. Landsman January 2000 ; Don't need to worry about TIME_DIFF since V5.4 W. Landsman July 2001 ; Assume since V5.4, remove LOCAL_DIFF keyword W. Landsman April 2006 ;- On_error,2 compile_opt idl2 if N_params() LT 1 then begin print,'Syntax - Get_date, FITS_date, [ in_date, /TIMETAG, /OLD ]' print,' FITS_date - output string giving date(s) in FITS format' print,' in-date - Optional input string giving date in systime() format' return endif if N_elements(in_date) GT 0 then begin mn = strmid(in_date,4,3) month = month_cnv(mn) day = fix(strmid(in_date,8,2)) ihr = fix(strmid(in_date,11,2)) imn = fix(strmid(in_date,14,2)) sec = fix(strmid(in_date,17,2)) yr = fix(strmid(in_date,20,4)) endif else begin seconds = systime(1) ;Number of seconds since Jan 1, 1970 dayseconds = 86400.D0 ;Number of seconds in a day mjd = seconds/dayseconds + 40587.0D jd = 2400000.5D + mjd DAYCNV, jd, yr, month, day, hr endelse if keyword_set(old) then begin if yr GE 2000 then yr = yr - 100 dte = string(day,f='(I2.2)') + '/' + string(month,f='(i2.2)') + $ '/' + string( yr-1900,f='(I2.2)') endif else $ dte = string(yr,f='(I4.4)') + '-' + string(month,f='(i2.2)') + '-' + $ string(day,f='(I2.2)') if keyword_set(TIMETAG) then begin if N_elements(in_date) EQ 0 then begin ihr = fix(hr) mn = (hr - ihr)*60. imn = fix(mn) sec = round((mn - imn)*60.) endif dte = dte + 'T' + string(ihr,f='(I2.2)') + ':' + string(imn,f='(I2.2)') + $ ':' + string(round(sec),f='(I2.2)') endif return end