奇狐社區論壇

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=25)
-- [建議] (http://www.chiefox.com.tw/bbs/showthread.php?threadid=23027)

由 Jasonyang 在 2021-06-15 10:21 發表:

[建議]

奇狐您好:

用了很久的奇狐，非常感謝您們一職在精進它。
對於表頭欄目的項目有一點建議，就是可不可以增加[融券最後回補日]、[除權息日期]這樣的欄目?對投資操作的幫助非常大的

謝謝

由 cgjj 在 2021-06-15 11:53 發表:

回覆: [建議]

引用:
最初由 Jasonyang 發表
奇狐您好:

用了很久的奇狐，非常感謝您們一職在精進它。
對於表頭欄目的項目有一點建議，就是可不可以增加[融券最後回補日]、[除權息日期]這樣的欄目?對投資操作的幫助非常大的

謝謝

可利用 [F6指標排序] 或 [自設指標] 列表來完成，個別的計算公式如下:

原碼:TDE:=TRADEDATE; TYY:=floor(TDE[datacount]/10000)+1900;
UDate:=0;
for EYY=TYY+1 downto 1900 do begin
  YYS:=numtostr(EYY,0);
  YYEvtNum:=EVTHANDLE('',YYS); //該年度有幾次事件
  for i=YYEvtNum downto 1 do begin
    UDate:=EVTHANDLE('',YYS,i,'MarginPatchDate');
    if UDate>0 then break;
  end;
  if UDate>0 then break;
end;
融券最後回補日:UDate-110000; //轉為民國年月日，取最後公告的

原碼:TDE:=TRADEDATE; TYY:=floor(TDE[datacount]/10000)+1900;
UDate:=0;
for EYY=TYY+1 downto 1900 do begin
  YYS:=numtostr(EYY,0);
  YYEvtNum:=EVTHANDLE('',YYS); //該年度有幾次事件
  for i=YYEvtNum downto 1 do begin
    EvtID:=EVTHANDLE('',YYS,i,'EventId'); //事件編號
    if EvtID =4 then UDate:=EVTHANDLE('',YYS,i,'EventDate'); //除息日
    if UDate>0 then break;
  end;
  if UDate>0 then break;
end;
除息日:UDate-110000; //轉為民國年月日，取最後公告的

原碼:TDE:=TRADEDATE; TYY:=floor(TDE[datacount]/10000)+1900;
UDate:=0;
for EYY=TYY+1 downto 1900 do begin
  YYS:=numtostr(EYY,0);
  YYEvtNum:=EVTHANDLE('',YYS); //該年度有幾次事件
  for i=YYEvtNum downto 1 do begin
    EvtID:=EVTHANDLE('',YYS,i,'EventId'); //事件編號
    if EvtID =3 then UDate:=EVTHANDLE('',YYS,i,'EventDate'); //除權日
    if UDate>0 then break;
  end;
  if UDate>0 then break;
end;
除權日:UDate-110000; //轉為民國年月日，取最後公告的

如欲看更多的資料，可利用內建的[e.除權相關 for v5.2]公式組觀看。

全部時間均為台灣時間, 現在時間為08:58

在這個頁面顯示本主題全部的 2 個文章