cA121 ;Dagberekening uit datum ; [ 04/20/93  11:03 AM ]
 ;
T0 ;Dagberekening uit datum ;
 ;
T0F ;Dagberekening uit datum ;
 ;
T0E ;Dagberekening uit datum ;
 ;
 ;input  => R = variabele\dd.mm.jj
 ;output => variabele = 1(maandag) 2(dinsdag) 3(woensdag) 4(donderdag) 5(vrijdag) 6(zaterdag) 7(zondag)
 ;
R8 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) X RX,RY
R8C S K=$E("4567123",RH#7+1),@$P(R,D)=K
R8Z K R0,R1,R2,R3,R4,RH,RX,RY,R Q  ;V1 22.10.91
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84