StocksMarketValueGrow(StocksArr,BegT,EndT,AutoFirstDay)
简述
板块流通市值变动(万)。
(1)个股流通市值变动(万)=(截止日收盘价-开始日收盘价)*截止日当天的流通股本;
(2)本市值变动考虑了增发等;
(3)用复权后的交易数据计算市值的变动。
(4)AutoFirstDay=0,不考虑新股情况,如果新股在开始日未上市,其开始日收盘价为0,截止日收盘价亦同;
,AutoFirstDay=1,考虑新股情况,如果新股在开始日未上市,其开始日收盘价取上市日的开盘价,截止日收盘价亦同;
(5)板块流通市值变动=个股流通市值变动加总。
StocksMarketValueGrow (StocksArr:Array,BegT:TDateTime,EndT:TDateTime,AutoFirstDay:Bool):Real
StocksArr:数组;
BegT:日期,开始日期;
EndT:日期,截止日期;
AutoFirstDay:布尔型,真假。
返回:实数,流通市值变动(万)。
范例:
oV:=BackUpSystemParameters2();
//取'沪深300'板块在2011年1月1日至2011年12月31日的板块流通市值变动
BegT:=inttodate(20110101);
EndT:=inttodate(20111231);
bk:=getbkbydate('SH000300',EndT);
Return StocksMarketValueGrow(bk,BegT,EndT,false);
//结果:-2680082854798.8,单位:万。
StocksMarketValue