Changeset 9 for trunk/Calendar/date2string.pro

Timestamp:

04/26/06 16:29:38 (18 years ago)

Author:

pinsard

Message:

upgrade of CALENDRIER/Calendar according to cerbere.lodyc.jussieu.fr:/usr/home/smasson/SAXO_RD/ : files

File:

• trunk/Calendar/date2string.pro (copied) (copied from trunk/CALENDRIER/date2string.pro) (1 diff)

trunk/Calendar/date2string.pro

@@ -3 +3 @@
 ;------------------------------------------------------------
 ;+
-; NAME:
+; NAME: date2string
 ;
-; PURPOSE:
+; PURPOSE: create a nice and readable format to print a date
 ;
-; CATEGORY:
+; CATEGORY: calendar/string
 ;
-; CALLING SEQUENCE:
+; CALLING SEQUENCE: nice_date = date2string(yyyymmdd)
 ; 
-; INPUTS:
+; INPUTS: yyyymmdd the date in the format 
+;         yearyearyearyearmonthmonthdayday
 ;
-; KEYWORD PARAMETERS:
+; KEYWORD PARAMETERS:those of string fonction to specify the
+;                    format of the month (the C format)
 ;
-; OUTPUTS:
+; OUTPUTS: a string containing the date in a easy readable format
 ;
-; COMMON BLOCKS:
+; COMMON BLOCKS:none
 ;
-; SIDE EFFECTS:
+; SIDE EFFECTS:?
 ;
-; RESTRICTIONS:
+; RESTRICTIONS:?
 ;
 ; EXAMPLE:
 ;
+;    IDL> print, date2string(19900123)
+;    Jan 23, 1990
+;    IDL> print, date2string(19900123, format = '(C(CMOA))')
+;    JAN 23, 1990
+;
 ; MODIFICATION HISTORY:Sebastien Masson (smasson@lodyc.jussieu.fr)
-;
+; Creation ???
+; update/review June 2005 Sebastien Masson.
 ;-
 ;------------------------------------------------------------
 ;------------------------------------------------------------
 ;------------------------------------------------------------
-FUNCTION date2string, date
+FUNCTION date2string, yyyymmdd, _EXTRA = ex
 ;
-@common
-;
-   s_date = strtrim(date, 2)
-   length = strlen(s_date)
-   sday = strtrim(fix(strmid(s_date,length-2)), 1)
-   smonth = strmid(s_date,length-4, 2)
-   syear = strmid(s_date, 0 ,length-4)
-;   res = syear+' '+string(format='(C(CMoA0))',31*(fix(smonth)-1))+'
-;   '+sday
-   if n_elements(langage) EQ 0 then langage = 'gb'
-   case langage of
-      'gb':BEGIN
-         truc = long(sday)
-         truc = truc-truc/10*10
-         case truc of
-            2:truc = 'nd'
-            3:truc = 'rd'
-            ELSE:truc = 'th'
-         endcase
-         res = string(format='(C(CMoA0))',31*(fix(smonth)-1))+' the '+sday+truc+' '+syear
-      END
-      ELSE:res = sday+' '+string(format='(C(CMoA0))',31*(fix(smonth)-1))+' '+syear
-   endcase
+   sday = strtrim(long(yyyymmdd) MOD 100, 1)
+   smonth = strtrim((long(yyyymmdd)/100) MOD 100, 2)
+   syear = strtrim(long(yyyymmdd)/10000, 2)
+   res = string(format = '(C(CMoa))', 31*(fix(smonth)-1), _EXTRA = ex) $
+         + ' ' + sday + ', ' + syear
    return, res
 end