cA108	;Weekberekening uit datum ; [ 01/03/01  1:27 PM ]
	;
T0	;Weekberekening uit datum ;
	;
T0F	;Weekberekening uit datum ;
	;
T0E	;Weekberekening uit datum ;
	;
R8	S @$P(R,D)=$P($$DW^cAFD1($P(R,D,2)),".",2)
	Q
	;	
R8OLD	; wordt niet meer gebruikt : KU op 01.10.03
	; is vervangen door DW^cAFD1
	N R0,R1,R2,R3,R4,RJ,RJ1,RW,RW1,RH,RX,RY
	S RX="S R0=$E(RD,4,5),R1=$E(RD,7,8),R1=R1<50+19_R1-1841,R2=R1\4*1461,R3=R1#4*365,RH=R2+R3+(RD\1)+(R3>730&(R0>2))-1"
R8A	S RY="F R4=1:1:R0-1 S RH=RH+$P(""31\28\31\30\31\30\31\31\30\31\30"",D,R4)"
R8B	S RD=$P(R,D,2),RJ=$E(RD,7,8),RJ1=RJ-1 S:RJ1<0 RJ1=99 S:$L(RJ1)<2 RJ1=0_RJ1 X RX,RY S RW=RH
R8C	S RD="31.12."_RJ1 X RX,RY S RW1=RH S RH=RH#7
R8D	S K=RW-RW1-1+RH+$S(RH<3:4,1:-3)\7+1 S:K=53&'(RJ#4&(RH=2)!('(RJ#4)&(RH=1))) K=1
R8E	S @$P(R,D)=K
R8Z	K R Q  ;V2 03.01.2001
	;
	;
ZZ	; 18.05.04 - 15 u 48 * V8