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