周框圖

{周}

AQ:=O#WEEK;

B:=C#WEEK;

AAQ:=H#WEEK;

BB:=L#WEEK;

STICKLINE(WEEKDAY=1,AAQ,BB,0,-1),COLORLIGRAY;

STICKLINE(WEEKDAY=6-1,AAQ,BB,0,-1),COLORLIGRAY;

BZ:=WEEKDAY;

TT:=BARSCOUNT(C)=1;

{ZB:=DATE IFF(REF(DATE,1),DATE)>BZ-REF(BZ,1) OR  BARSLAST=1;}

ZC:=WEEKDAY<REF(WEEKDAY,1)OR TT;

ZM:=REFX(ZC,1) ;

DRAWLINE(B>=AQ AND (ZC OR TT ),AAQ,B>=AQ AND (ZM OR ISLASTBAR),AAQ,0),COLOR9999DD;

DRAWLINE(B>=AQ AND (ZC OR TT ),BB,B>=AQ AND (ZM OR ISLASTBAR),BB,0),COLOR9999DD;

DRAWLINE(B<AQ AND (ZC OR TT ),AAQ,B<AQ AND (ZM OR ISLASTBAR),AAQ,0),COLORDDAA88;

DRAWLINE(B<AQ AND (ZC OR TT ),BB,B<AQ AND (ZM OR ISLASTBAR),BB,0),COLORDDAA88;