MM1:=NUMTOSTR(MONTH,0);
MMM1:=NUMTOSTR(MONTH+1,0);
IF MONTH<9 THEN BEGIN
PZ:=STRLEFT(STKLABEL,3);
PD:=STRLEFT(STKLABEL,3);
END
IF MONTH=9 THEN BEGIN
PZ:=STRLEFT(STKLABEL,3);
PD:=STRLEFT(STKLABEL,2);
END
IF MONTH>9 THEN BEGIN
PZ:=STRLEFT(STKLABEL,2);
PD:=STRLEFT(STKLABEL,2);
END
DY:STRCAT(PZ,MM1); //当月
CY:STRCAT(PD,MMM1);//次月
DRAWTEXT(C<O,H,DY);
DRAWTEXT(C>O,H,CY);