-- 作者:qq代人发帖
-- 发布时间:2016/5/19 14:32:05
--
//IF (BARPOS=1) THEN XSWS:=0; IF (BARPOS=1) THEN XSWS:=IFELSE(MINDIFF/1>=1,0,IFELSE((MINDIFF*10)/1>=1,1,2));//小数位数 DTJ:=DATE<>REF(DATE,1) OR BARPOS=1; IF (DTJ) THEN BEGIN datestr:=NUMTOSTR(DATE+19000000,0); datestr:=STRINSERT(datestr,6,\'-\'); datestr:=STRINSERT(datestr,4,\'-\'); END; pktime:=NUMTOSTR(TIME,0); pktime1:=IFELSE(STRLEN(pktime)=5,1,2); pktime:=STRINSERT(pktime,pktime1,\':\'); pktime:=STRINSERT(pktime,3+pktime1,\':\'); pktime:=datestr&\' \'&pktime; outputstr1:=pktime&\' \'&NUMTOSTR(O,XSWS)&\' \'&NUMTOSTR(H,XSWS); outputstr2:=pktime&\' \'&NUMTOSTR(L,XSWS)&\' \'&NUMTOSTR(C,XSWS);
DEBUGFILE2(\'D:\\日盈亏\\\'&STKLABEL&\'11t.TXT\',outputstr1,0,0); DEBUGFILE2(\'D:\\日盈亏\\\'&STKLABEL&\'22t.TXT\',outputstr2,0,0);
|