cA118	;DATUMBEREKENING ;%A118 ;
	;
T0	;Datumberekening ;
	;
T0F	;Datumberekening ;
	;
T0E	;Datumberekening ;
	;
S4	S R2=$P(R,D,1),RD=R2\1,RM=R2#1*100,RJ=+$P(R2,".",3),R2=$P(R,D,2) D S4A G S4C
S4A	I RM=1 S RJ=RJ-1,RM=13 G S4A
S4B	S R3="R3="_$P("31\RM-1=2&$$LEAP^cAFD1(RJ)+28\31\30\31\30\31\31\30\31\30\31",D,RM-1),@R3 Q
S4C	S RD=RD-R2
S4D	G S4E:RD>0 S RD=RD+R3,RM=RM-1 D S4A G S4D
S4E	I RM=13 S RM=1,RJ=RJ+1
S4F	S RJ=RJ#100,R=$E(RD/100_0,2,3)_"."_$E(RM/100_0,2,3)_"."_$E("0"_RJ,$L(RJ),3)
S4Z	K R1,R2,R3,RD,RM,RJ Q  ;V4 09.07.85
	;
Z	X ^cZ Q
ZZ	; 04.04.05 - 14 u 29 * V8.03