通达信指定日期输出值源码

指定日期遇到节假日，取前1交易时间值；
小于日线周期取指定日最后一根k线的位置值

{指定日期遇到节假日，取前1交易时间值；小于日线周期取指定日最后一根k线的位置值}
INPUT: 年(2018,1900,2050,1),月(1,1,12,1),日(1,1,31,1);
指定日期:=年*10000-19000000+月*100+日;
M5:MA(C,5),color00ccff;
xs:=BARSLAST(DISPSTATUS=2);xe:=BARPOS;

tjout1:=H;
tjout2:=C;
tjout3:=open;
tjout4:=L;
tjout5:=M5;
{可以N个tjoutN}
for x=xs to xe do BEGIN if ref(date,x) =指定日期 then begin
输出值1:=ref(tjout1,x);
输出值2:=ref(tjout2,x);
输出值3:=ref(tjout3,x);
输出值4:=ref(tjout4,x);
输出值5:=ref(tjout5,x);
{可以加N个输出值N}
break; end END

指定日高:输出值1,colorff99ff;
指定日收:输出值2,colorffffff;
指定日开:输出值3,color99ffff;
指定日低:输出值4,colorffcc00;
指定日M5:输出值5,color00ccff;
cn:=10;
STICKLINE(c,输出值1,输出值1,2*cn*x,1),colorff99ff;
STICKLINE(c,输出值2,输出值2,2*cn*x,1),colorffffff;
STICKLINE(c,输出值3,输出值3,2*cn*x,1),color99ffff;
STICKLINE(c,输出值4,输出值4,2*cn*x,1),colorffcc00;
STICKLINE(c,输出值5,输出值5,200,1),color00ccff;
if(DYNAINFO(7) 0,DYNAINFO(7),C),dotline,colorffffff;