?

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