奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [問題]請問如何顯示指定日期的價格? (http://www.chiefox.com.tw/bbs/showthread.php?threadid=999)

[問題]請問如何顯示指定日期的價格?

如題
說明如下
例如我想在各股畫面中畫出指定日期
如:93/3/23的低點
因此我就可以統計出大盤破底
而個股沒破底的個股
請問該如何撰寫公式?

用 DATE 可取得日期

例如:
於20040602的Low做箭頭標記
kbardate:=date;
DRAWICON(kbardate=1040602,low,4);

將20040602的Low向右畫一延伸線
DRAWLINE(kbardate=1040602,low,ref(kbardate,1)=1040602,ref(LOW,1),1);

哇!
回覆真迅速
謝謝您了
不過,請問如何顯示數值呢?
因為只劃線無法進行選股~

用下列的程式即可達到目標:
finddate:=1040602; 指定取得數值的日期
useval:=Low; 用於指定要傳回的價為 Low
(若您要改用 High 請改為 useval:=High; )
checkval 為取得的結果(指定日期的 Low)
　　　　若傳回 -1, 則無該日期數據
=========================


dates:=date;
finddate:=1040602;
useval:=Low;
checkval:c*0;
<%
dates=FFL.VarData("dates")
finddate=FFL.VarData("finddate")
useval=FFL.VarData("useval")
checkval=FFL.VarData("checkval")
FirstNo=FFL.VarStartIndex("dates")
SetVal = -1
for i = FirstNo to Ubound(dates)
if dates(i) = finddate then SetVal = useval(i): exit for
next
for i = FirstNo to Ubound(dates)
checkval(i) = SetVal
next
FFL.VarData("checkval")=checkval
%>

若您不考慮過去的值(結果只放於今日)
指定的日期又比較接近目前日期
用下列改過的程式, 效率會提升很多

dates:=date;
finddate:=1040602;
useval:=Low;
checkval:c*0;
<%
dates=FFL.VarData("dates")
finddate=FFL.VarData("finddate")
useval=FFL.VarData("useval")
checkval=FFL.VarData("checkval")
FirstNo=FFL.VarStartIndex("dates")
SetVal = -1
EndNo = Ubound(dates)
for i = EndNo to FirstNo step -1
if dates(i) = finddate then SetVal = useval(i): exit for
next
checkval(EndNo) = SetVal
FFL.VarData("checkval")=checkval
%>

謝謝您!