안녕하세요 예스스탁입니다. Input : xtime(60000); Var : xt(0), st(0), tcond(false), cond1(false), cond2(false); var : Month(0),nday(0); Month = Floor(FracPortion(sdate/10000)*100); nday = data2(date - int(date/100)*100); //6시를 넘어가는 봉이 생기면 Tcond는 false If stime == xtime or (stime > xtime and stime[1] < Xtime) Then Tcond = false; //써머타임 적용여부가 반영된 영업일 계산 If (Month == 3 And ((DayofWeek(Date) == 1 And nday > 7) Or nday > 14)) Or (Month == 11 And ((DayofWeek(Date) == 1 And nday < 8) Or nday < 7)) Or (Month > 3 And Month < 11) Then { st = 070000; // 장시작 시간 xt = 060000; // 장종료 시간 } Else { st = 080000; // 장 시작 시간 xt = 070000; // 장 종료 시간 } //영업일이 변경되면 Tcond는 true Condition1,Condition2는 false If IntPortion(ceiling(Time/10000)) == IntPortion((st + 10000)/10000) Then { Tcond = true; Condition1 = false; Condition2 = false; } var1 = ma(c,5); var2 = ma(c,20); //종가> 5이평> 20이평이면 true 아니면 false cond1 = C > var1 and var1 > var2; //종가< 5이평 < 20이평이면 true 아니면 false cond2 = C < var1 and var1 < var2; //정배열이 아니다가 정배열이 되면 Condition1은 true If cond1 == true and cond1[1] == false then Condition1 = true; //역배열이 아니다가 역배열이 되면 Condition2는 true If cond2 == true and cond2[1] == false then Condition2 = true; //tcond는 true상태이고 //당일정배열이 발생했고 현재도 정배열이고 //2개이평이 상승중이면 매수 If Tcond == true And Condition1 == true and cond1 == true And var1 > var1[1] and var2 > var2[1] Then buy("B"); //tcond는 true상태이고 //당일역배열이 발생했고 현재도 역배열이고 //2개이평이 하락중이면 매도 If Tcond == true And Condition2 == true And Cond2 == true And var1 < var1[1] And var2 < var2[1] Then Sell("S"); 즐거운 하루되세요 > 통큰베팅 님이 쓴 글입니다. > 제목 : 함수변환요청(251호 SK증권) > 안녕하세요? 아래는 SK증권에서 사용했던 함수입니다. YT로 변환요청드립니다. 감사합니다. Input : xtime(60000); Var : xt(0), st(0), tcond(false), cond1(false), cond2(false); //6시를 넘어가는 봉이 생기면 Tcond는 false If time == xtime or (time > xtime and time[1] < Xtime) Then Begin Tcond = false; End; //써머타임 적용여부가 반영된 영업일 계산 If (Month(Date) = 3 And ((DayofWeek(Date) = MONDAY And DayofMonth(Date) > 7) Or DayofMonth(Date) > 14)) Or (Month(Date) = 11 And ((DayofWeek(Date) = MONDAY And DayofMonth(Date) < 8) Or DayofMonth(Date) < 7)) Or (Month(Date) > 3 And Month(Date) < 11) Then Begin st = 070000; // 장시작 시간 xt = 060000; // 장종료 시간 End Else Begin st = 080000; // 장 시작 시간 xt = 070000; // 장 종료 시간 End; //영업일이 변경되면 Tcond는 true Condition1,Condition2는 false If IntPortion(ceiling(Time/10000)) == IntPortion((st + 10000)/10000) Then Begin Tcond = true; Condition1 = false; Condition2 = false; End; var1 = ma(c,5); var2 = ma(c,20); //종가> 5이평> 20이평이면 true 아니면 false cond1 = C > var1 and var1 > var2; //종가< 5이평 < 20이평이면 true 아니면 false cond2 = C < var1 and var1 < var2; //정배열이 아니다가 정배열이 되면 Condition1은 true If cond1 == true and cond1[1] == false then Condition1 = true; //역배열이 아니다가 역배열이 되면 Condition2는 true If cond2 == true and cond2[1] == false then Condition2 = true; //tcond는 true상태이고 //당일정배열이 발생했고 현재도 정배열이고 //2개이평이 상승중이면 매수 If Tcond == true And Condition1 == true and cond1 == true And var1 > var1[1] and var2 > var2[1] Then buy("B"); //tcond는 true상태이고 //당일역배열이 발생했고 현재도 역배열이고 //2개이평이 하락중이면 매도 If Tcond == true And Condition2 == true And Cond2 == true And var1 < var1[1] And var2 < var2[1] Then Sell("S");