ZRR:=(YEAR-1992)*365+INTPART((YEAR-1989)/4)+IF(MONTH<=2,DAY+(MONTH-1)*31,DAY+INTPART(13*(MONTH+1)/5)-7+(MONTH-1)*28+IF(INTPART(YEAR/4)=YEAR/4,1,0));T:=BARSLAST(ZRR-REF(ZRR,1)>WEEAY-REF(WEEKDAY,1))+1;T1:=REF(T,T)+T;T2:=REF(T,T1)+T1;T3:=REF(T,T2)+T2;T4:=REF(T,T3)+T3;T5:=REF(T,T4)+T4;T6:=REF(T,T5)+T5;T7:=REF(T,T6)+T6;T8:=REF(T,T7)+T7;T9:=REF(T,T8)+T8;T10:=REF(T,T9)+T9;T11:=REF(T,T10)+T10;T12:=REF(T,T11)+T11;T13:=REF(T,T12)+T12;T14:=REF(T,T13)+T13;T15:=REF(T,T14)+T14;T16:=REF(T,T15)+T15;T17:=REF(