Changeset 9 for trunk/Obsolete/jourdsmois.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/Obsolete/jourdsmois.pro (copied) (copied from trunk/CALENDRIER/jourdsmois.pro) (1 diff)

trunk/Obsolete/jourdsmois.pro

@@ -5 +5 @@
 ; NAME:jourdsmois
 ;
-; PURPOSE:donne le nombre de jours ds le mois month de l'annee year
-;
-; CATEGORY:
-;
-; CALLING SEQUENCE:result=jourdsmois()
-;
-; INPUTS:optionnels
-;        mois et annee
-;
-; KEYWORD PARAMETERS:
-;
-; OUTPUTS:
-;
-; COMMON BLOCKS:
-;       common.pro      leapyr.pro
-;
-; SIDE EFFECTS:
-;
-; RESTRICTIONS:
-;
-; EXAMPLE:
+; PURPOSE:
+;       obsolete, used daysinmonth instead...
 ;
 ; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr)
-;                       2/7/98
 ;-
+; June 2005: Sebastien Masson, english version
 ;------------------------------------------------------------
 ;------------------------------------------------------------
 ;------------------------------------------------------------
-function jourdsmois, mois,annee
-@common
-;------------------------------------------------------------
-case n_params() of
-  1:month=mois
-  2:begin
-      month=mois
-      year=annee
-    end
-  else:
+function jourdsmois, mois, annee
+
+case n_params() OF
+  0:return, daysinmonth()
+  1:return, daysinmonth(mois)
+  2:return, daysinmonth(mois, annee)
 endcase
-;------------------------------------------------------------
-days_in_mth = [31,28+leapyr(year),31,30,31,30,31,31,30,31,30,31]
-return, days_in_mth[month-1]
-;------------------------------------------------------------
+
 end