引用:

---

最初由 wengd469 發表
想改成以西元顯示出來
要如何修正呢???麻煩您

//除息日
S:=1; TDE:=tradedate;
除息日:TDE*0; MaxRecNo:=DIVDISX('');
for RNo=1 to MaxRecNo do begin
FCDE:=DIVDISX('','CshDivDate',RNo); //除息日
if FCDE>0 then begin
for i=S to datacount do begin
if TDE[i]>=FCDE then begin
除息日[S]:=FCDE; S:=i; break;
end;
end;
if FCDE>TDE[datacount] then begin
除息日[S]:=FCDE-110000+19110000; break;
end;
end;
end;
除息日:=ref(除息日,barslast(除息日<>0)),coloryellow;
//

---