AStockPrice
简述
如果公司同时发行A+B股,返回A股的收盘价,否则返回公司本身的收盘。
AStockPrice (EndT:TDateTime):Real
EndT:实数,截止日期;
返回:收盘价
范例:
//返回"SH900901"对应的A股收盘价
ov:=BackUpSystemParameters();
SetSysParam(pn_stock(),"SH900901");
EndT:=Inttodate(20120910);
R:= AStockPrice (EndT);
RestoreSystemParameters(ov);
Return R;
//结果:4.02