通达信在主图 加上日期星期源码

 ZT:=C>=ZTPRICE(REF(CLOSE#DAY,1),0.1);

DT:=C<=DTPRICE(REF(CLOSE#DAY,1),0.1);

BA:STICKLINE(ZT,(H+L)/2,CLOSE,0,0),COLORYELLOW;

BC:STICKLINE(DT,(H+L)/2,CLOSE,0,0),COLORBLUE;

DA:=YEAR AND MONTH AND DAY;

AXA:=STRCAT(CON2STR(YEAR,0),'年');

AAB:=STRCAT(CON2STR(MONTH,0),'月');

AA33:=STRCAT(CON2STR(DAY,0),'日');

AA4:=STRCAT('【星期',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,

'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日')))))));

AA1:=STRCAT(STRCAT(STRCAT(AXA,AAB),STRCAT(AA33,AA4)),'】');

S1:DRAWTEXT_FIX(DA,0.7,1,0,AA1),COLORFFAAFF;