안녕하세요 예스스탁입니다. input : ntime(010000); var : cnt(0),tl1(0),tl2(0),tl3(0),tl4(0),tl5(0); var : tx1(0),tx2(0),tx3(0),tx4(0),tx5(0); Array : HH[10](0),LL[10](0),DD[10](0),TT[10](0); if (sDate != sDate[1] and sTime >= ntime) or (sDate == sDate[1] and sTime >= ntime and sTime[1] < ntime) Then { LL[0] = L; HH[0] = H; DD[0] = sdate; TT[0] = stime; for cnt = 1 to 9{ HH[cnt] = HH[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; DD[cnt] = DD[cnt-1][1]; TT[cnt] = TT[cnt-1][1]; } var1 = max(HH[0],HH[1]); var2 = min(LL[0],LL[1]); var3 = var1-var2; value1 = var1; value2 = var2+var3*0.75; value3 = var2+var3*0.50; value4 = var2+var3*0.25; value5 = var2; if HH[2] > 0 and LL[2] > 0 then{ TL_delete(TL1); TL_delete(TL2); TL_delete(TL3); TL_delete(TL4); TL_delete(TL5); TL1 = TL_new(DD[2],TT[2],value1,sdate,stime,value1); TL2 = TL_new(DD[2],TT[2],value2,sdate,stime,value2); TL3 = TL_new(DD[2],TT[2],value3,sdate,stime,value3); TL4 = TL_new(DD[2],TT[2],value4,sdate,stime,value4); TL5 = TL_new(DD[2],TT[2],value5,sdate,stime,value5); TL_setStyle(TL1,3); TL_setStyle(TL2,3); TL_setStyle(TL3,3); TL_setStyle(TL4,3); TL_setStyle(TL5,3); TL_setColor(TL1,White); TL_setColor(TL2,White); TL_setColor(TL3,White); TL_setColor(TL4,White); TL_setColor(TL5,White); TL_setsize(TL1,0); TL_setsize(TL2,0); TL_setsize(TL3,0); TL_setsize(TL4,0); TL_setsize(TL5,0); TL_setextright(tl1,true); TL_setextright(tl2,true); TL_setextright(tl3,true); TL_setextright(tl4,true); TL_setextright(tl5,true); text_delete(tx1); text_delete(tx2); text_delete(tx3); text_delete(tx4); text_delete(tx5); tx1 = text_new(sdate,stime,value1,"100% "+NumToStr(value1,2)); tx2 = text_new(sdate,stime,value2,"75% "+NumToStr(value2,2)); tx3 = text_new(sdate,stime,value3,"50% "+NumToStr(value3,2)); tx4 = text_new(sdate,stime,value4,"25% "+NumToStr(value4,2)); tx5 = text_new(sdate,stime,value5,"0% "+NumToStr(value5,2)); } } if HH[0] > 0 and H > HH[0] Then HH[0] = H; if LL[0] > 0 and L < LL[0] Then LL[0] = L; text_setlocation(tx1,sdate,stime,value1); text_setlocation(tx2,sdate,stime,value2); text_setlocation(tx3,sdate,stime,value3); text_setlocation(tx4,sdate,stime,value4); text_setlocation(tx5,sdate,stime,value5); 즐거운 하루되세요 > 루민이 님이 쓴 글입니다. > 제목 : 수식문의드립니다. > 항상수고하십니다. 1)다름이아니라 아래 수식에 시간을 조절 할 수 있게끔 추가하고싶습니다. ex)현재 09:05 기준으로 저가/고가 등이 표현이되고 있는대 이걸 01:00 이런식으로 원하는 시간대로 바꾸고 싶습니다. var : cnt(0),tl1(0),tl2(0),tl3(0),tl4(0),tl5(0); var : tx1(0),tx2(0),tx3(0),tx4(0),tx5(0); Array : HH[10](0),LL[10](0),DD[10](0),TT[10](0); if Bdate != Bdate[1] Then{ LL[0] = L; HH[0] = H; DD[0] = sdate; TT[0] = stime; for cnt = 1 to 9{ HH[cnt] = HH[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; DD[cnt] = DD[cnt-1][1]; TT[cnt] = TT[cnt-1][1]; } var1 = max(HH[0],HH[1]); var2 = min(LL[0],LL[1]); var3 = var1-var2; value1 = var1; value2 = var2+var3*0.75; value3 = var2+var3*0.50; value4 = var2+var3*0.25; value5 = var2; if HH[2] > 0 and LL[2] > 0 then{ TL_delete(TL1); TL_delete(TL2); TL_delete(TL3); TL_delete(TL4); TL_delete(TL5); TL1 = TL_new(DD[2],TT[2],value1,sdate,stime,value1); TL2 = TL_new(DD[2],TT[2],value2,sdate,stime,value2); TL3 = TL_new(DD[2],TT[2],value3,sdate,stime,value3); TL4 = TL_new(DD[2],TT[2],value4,sdate,stime,value4); TL5 = TL_new(DD[2],TT[2],value5,sdate,stime,value5); TL_setStyle(TL1,3); TL_setStyle(TL2,3); TL_setStyle(TL3,3); TL_setStyle(TL4,3); TL_setStyle(TL5,3); TL_setColor(TL1,White); TL_setColor(TL2,White); TL_setColor(TL3,White); TL_setColor(TL4,White); TL_setColor(TL5,White); TL_setsize(TL1,0); TL_setsize(TL2,0); TL_setsize(TL3,0); TL_setsize(TL4,0); TL_setsize(TL5,0); TL_setextright(tl1,true); TL_setextright(tl2,true); TL_setextright(tl3,true); TL_setextright(tl4,true); TL_setextright(tl5,true); text_delete(tx1); text_delete(tx2); text_delete(tx3); text_delete(tx4); text_delete(tx5); tx1 = text_new(sdate,stime,value1,"100% "+NumToStr(value1,2)); tx2 = text_new(sdate,stime,value2,"75% "+NumToStr(value2,2)); tx3 = text_new(sdate,stime,value3,"50% "+NumToStr(value3,2)); tx4 = text_new(sdate,stime,value4,"25% "+NumToStr(value4,2)); tx5 = text_new(sdate,stime,value5,"0% "+NumToStr(value5,2)); } } if H > HH[0] Then HH[0] = H; if L < LL[0] Then LL[0] = L; text_setlocation(tx1,sdate,stime,value1); text_setlocation(tx2,sdate,stime,value2); text_setlocation(tx3,sdate,stime,value3); text_setlocation(tx4,sdate,stime,value4); text_setlocation(tx5,sdate,stime,value5);