Changeset 539 for trunk

Timestamp:

04/24/12 18:17:19 (12 years ago)

Author:

lelod

Message:

correction enchainement des dates sur deux annees

File:

• trunk/src/cresamsu.pro (modified) (2 diffs)

trunk/src/cresamsu.pro

@@ -147 +147 @@
 routine = (SCOPE_TRACEBACK(/STRUCTURE))[s-1].Routine
 ;
+key_performance=0
 if key_performance EQ 1 THEN BEGIN
     time1 = SYSTIME(1)
@@ -259 +260 @@
 ddmb=ddb
 ddme=dde
+mmyb=mmb
+mmye=mme
 for yyyy=yyyyb,yyyye do begin
-   for mm=mmb,mme do begin
+   if (yyyye ne yyyyb) then begin
+      mmyb=1
+      mmye=12
+      if yyyy eq yyyyb then mmyb=mmb
+      if yyyy eq yyyye then mmye=mme
+   endif
+   print,"traitement annee ",yyyy,'mois ',mmyb,'a ',mmye
+   for mm=mmyb,mmye do begin
       if (mme ne mmb) then begin
          ddmb=1