来源:程序化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 ;