彩线定位的问题　[文华财经]

 来源:程序化99

 参考：

 年:=YEAR;
ISCOLOR:=IF(年>REF(年,1),1,0);
NUM:=COUNT(ISCOLOR,0);      
VERTLINE1(ISCOLOR AND MOD(NUM,4)=1),COLORRED      ;
VERTLINE1(ISCOLOR AND MOD(NUM,4)=2),COLORYELLOW   ;
VERTLINE1(ISCOLOR AND MOD(NUM,4)=3),COLORBLUE     ;
VERTLINE1(ISCOLOR AND MOD(NUM,4)=0),COLORMAGENTA  ;
VERTLINE1(ISCOLOR AND YEAR=2021),COLORYELLOW  ;