(注:实际的结果不一定和下同)
下表是深长城的股本变更表
记录号变动日总股本 A股未流通股已流通股流通A股变动原因
0 19940921 56300000 56300000 43300000 13000000 13000000
1 1995041056300000 56300000 40000000 16300000 16300000 职工股上市
2 19950607 106970000 106970000 76000000 30970000 30970000 送股上市
3 19960715 139061000 139061000 98800000 40261000 40261000 送股上市
4 19970512 171045030 171045030 121523999 49521031 49521031 配股上市
5 19970708 239463040 239463040 170133598 69329442 69329442 送股上市
如:
(1)InfoArrayExt(12,'变动日',19970512,-1) 返回的记录是第4条
(2)InfoArrayExt(12,'变动日',19970512,0) 返回的记录是第0条
(3)InfoArrayExt(12,'变动日',19970512,2) 返回的记录是第1条
(4) InfoArrayExt(12,'变动日',19970512,2,”总股本”,Shares) 返回的值为56300000。
//第4个参数缺省,满足条件的最后一条记录,即返回股权登记日<=20130516的最后一条记录
setsysparam(pn_stock(),'SZ000002');
infoid:=DatabaseInfoArrayId(21);
return InfoArrayExt(infoid,'股权登记日',20130516);
结果:
