AstockCode
简述
如果公司同时发行A+B股,返回A股代码,否则返回公司本身代码。
AStockCode(EndT:TDateTime):String
名称 | 类型 | 说明 |
---|
EndT | TDateTime | 实数,截止日期; |
返回 | String | 字符串,股票代码 |
//返回"SH900901"对应的A股代码
ov:=BackUpSystemParameters();
SetSysParam(pn_stock(),"SH900901");
EndT:=Inttodate(20120910);
R:= AStockCode(EndT);
RestoreSystemParameters(ov);
Return R;
//结果:"SH600602"