奇狐您好:

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

謝謝

引用:

---

最初由 Jasonyang 發表
奇狐您好:

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

謝謝

---

原碼:
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; //轉為民國年月日，取最後公告的