Fincance 证券除权信息

Fincance

该对象记录了指定证券的一些财务信息。

属性

属性	说明
PowerCount	除权数据个数
PowerDate	设置或读取基于零索引的指定序号的除权日期
PowerGive	设置或读取基于零索引的指定序号的每股送红股股数
PowerPei	设置或读取基于零索引的指定序号的每股配股股数
PowerPeiPrice	设置或读取基于零索引的指定序号的每股配股价
PowerProfit	设置或读取基于零索引的指定序号的每股红利
PowerCITM	设置或读取基于零索引的指定序号的直接上市股数
FinanceCount	历史财务数据个数

方法

方法	说明
GetFincance	取最新指定财务数据
GetFincanceEx	取指定基于0索引的历史财务数据
Sort	按指定顺序排序除权数据

示例

'创建Block外部对象，将对象实例置变量b中
Set Block = CreateObject("Stock.Block")

'打开市场指定分类名称的板块
call Block.open("连续合约板块",1)

'遍历连续合约板块的品种最新的除权数据
For i = 0 To Block.Count-1
	Set Fincance1 = marketdata.GetFincance(Block.GetStockCode(i),Block.GetStockMarket(i))
	
	if  Fincance1.PowerCount>0  then
		theDate=Fincance1.PowerDate(Fincance1.PowerCount-1)
		Profit=Fincance1.PowerProfit(Fincance1.PowerCount-1)*10
		DiffADate =DateDiff("d",theDate, Now)
        '输出次日即将换月的品种
		if  DiffADate<0  then
			Application.MsgOut Now&"   "&Block.GetStockCode(i)&"    除权日："& theDate &"   除权数值："&Profit
		end if	
	end if
Next