股东人数:GPJYVALUE(1,1,1);
TJ1:=BARSLAST(股东人数>REF(股东人数,1)),NODRAW;
TJ2:=BARSLAST(股东人数<REF(股东人数,1)),NODRAW;
NOTEXT1:=IF(TJ1<TJ2,股东人数,DRAWNULL),COLOR00FF00;
NOTEXT2:=IF(TJ1>TJ2,股东人数,DRAWNULL),COLORRED;
股东ZDZ:=MAX(REF(股东人数,1),股东人数);
股东ZXZ:=MIN(REF(股东人数,1),股东人数);
股东SSS:=BARSLAST(REF(股东人数,1)!=股东人数);
股东ZAQ:=(REF(股东人数,1)+股东人数)/2;
股东JSRS:=(REF(股东人数,1)-股东人数)/REF(股东人数,1)*100;
股东ZJRS:=(股东人数-REF(股东人数,1))/REF(股东人数,1)*100;
股东DQ1:=VARCAT('减少:',VARCAT(VAR2STR(股东JSRS,2),'%'));
股东DQ2:=VARCAT('增加:',VARCAT(VAR2STR(股东ZJRS,2),'%'));
股东升:=BARSLAST(REF(股东人数,1)>股东人数);
股东降:=BARSLAST(REF(股东人数,1)<股东人数);
连降:COUNT(REF(股东人数,1)!=股东人数,股东降),NODRAW;
连升:COUNT(REF(股东人数,1)!=股东人数,股东升),NODRAW;
股东连降次:=VARCAT(' 降:',VARCAT(VAR2STR(连降,0),'次'));
股东连升次:=VARCAT(' 升:',VARCAT(VAR2STR(连升,0),'次'));
DRAWTEXT(股东SSS=0 AND 股东JSRS>0,股东ZAQ,VARCAT(股东DQ1,股东连降次)),COLORMAGENTA;
DRAWTEXT(股东SSS=0 AND 股东ZJRS>0,股东ZAQ,VARCAT(股东DQ2,股东连升次)),COLORGREEN;
星期几:=VARCAT(VARCAT('(',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五','')))))),')');
日期:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期几);
DRAWTEXT(股东SSS=0 AND 股东JSRS>0,股东ZAQ,日期),COLORMAGENTA,DRAWABOVE;
DRAWTEXT(股东SSS=0 AND 股东ZJRS>0,股东ZAQ,日期),,COLORGREEN,DRAWABOVE;
