Index: cA104.mac.rou
===================================================================
diff -u -r734 -r3542
--- cA104.mac.rou	(.../cA104.mac.rou)	(revision 734)
+++ cA104.mac.rou	(.../cA104.mac.rou)	(revision 3542)
@@ -1,38 +1,39 @@
-cA104 ;Berekenen vervaldatum ;%A104 ; [ 04/19/00  3:08 PM ]
-R4 G 1
- ;
-T0 ;Berekenen vervaldatum ;
- ;
-T0F ;Calcul de l'�ch�ance ;
- ;
-T0E ;Berekenen vervaldatum ;
- ;
- ; bepalen R3=laatste dag v/d maand
-S1 I RM>12 S RJ=RJ+1,RM=RM-12 G S1
-S1A S R3="R3="_$P("31\'(RJ#4)+28\31\30\31\30\31\31\30\31\30\31",D,RM),@R3
-S1Z Q
- ;
- ; termijn steeds in N, enkel ingave eventueel in andere taal
- ; input : R=dd.mm.jj\termijn
- ; intern: RD=dag, RM=maand, RJ=jaar
-1 S R2=$P(R,D),RC="",RD=R2\1,RM=R2#1*100,RJ=+$E(R2,7,8)
-11 S R2=$P(R,D,2) G Y:R2="" D S1
-13 I R2["-W" S R2=$P(R2,"-W")
-15 I R2["+C" S R2=$P(R2,"+C"),RC="\10DEC"
- ;
- ; R2=termijn: D=dagen, DEM=dagen einde maand, DEC=dagen einde decade
-2 I R2["EC" S RD=$S(RD<11:10,RD<21:20,1:R3),R2=$E(R2,1,$L(R2)-2) ; decade
-21 I R2'["D" G 3
-23 I R2["EM" S RD=R3
-25 I R2["D" S RD=RD+R2
-27 G Y:RD'>R3 S RD=RD-R3,RM=RM+1 D S1 G 27
- ;
- ; R2=termijn: M=maand, MEM=maand einde maand, MEC=maand einde decade
-3 S RM=RM+R2 D S1 S:R2["EM"!(RD>R3) RD=R3
- ;
- ; output: R=dd.mm.jj
-Y S R=$E(100+RD,2,3)_"."_$E(100+RM,2,3)_"."_$E(100+RJ,2,3)
-YA I $L(RC) S R=R_RC G 1
-YZ K R1,R2,R3,RC,RD,RM,RJ Q
- ;
-ZZ ; 05.02.01 - 16 u 23 * V7.84
\ No newline at end of file
+cA104	;Berekenen vervaldatum ;%A104 ; [ 04/19/00  3:08 PM ]
+R4	G 1
+	;
+T0	;Berekenen vervaldatum ;
+	;
+T0F	;Calcul de l'�ch�ance ;
+	;
+T0E	;Berekenen vervaldatum ;
+	;
+	; bepalen R3=laatste dag v/d maand
+S1	I RM>12 S RJ=RJ+1,RM=RM-12 G S1
+S1A	S R3="R3="_$P("31\$$LEAP^cAFD1(RJ)+28\31\30\31\30\31\31\30\31\30\31",D,RM),@R3
+S1Z	Q
+	;
+	; termijn steeds in N, enkel ingave eventueel in andere taal
+	; input : R=dd.mm.jj\termijn
+	; intern: RD=dag, RM=maand, RJ=jaar
+1	S R2=$P(R,D),RC="",RD=R2\1,RM=R2#1*100,RJ=+$E(R2,7,8)
+11	S R2=$P(R,D,2) G Y:R2="" D S1
+13	I R2["-W" S R2=$P(R2,"-W")
+15	I R2["+C" S R2=$P(R2,"+C"),RC="\10DEC"
+	;
+	; R2=termijn: D=dagen, DEM=dagen einde maand, DEC=dagen einde decade
+2	I R2["EC" S RD=$S(RD<11:10,RD<21:20,1:R3),R2=$E(R2,1,$L(R2)-2) ; decade
+21	I R2'["D" G 3
+23	I R2["EM" S RD=R3
+25	I R2["D" S RD=RD+R2
+27	G Y:RD'>R3 S RD=RD-R3,RM=RM+1 D S1 G 27
+	;
+	; R2=termijn: M=maand, MEM=maand einde maand, MEC=maand einde decade
+3	S RM=RM+R2 D S1 S:R2["EM"!(RD>R3) RD=R3
+	;
+	; output: R=dd.mm.jj
+Y	S R=$E(100+RD,2,3)_"."_$E(100+RM,2,3)_"."_$E(100+RJ,2,3)
+YA	I $L(RC) S R=R_RC G 1
+YZ	K R1,R2,R3,RC,RD,RM,RJ Q
+	;
+ZZ	; 24.02.06 - 15 u 49 * V8.06
+