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