# GetNewStockInfo 方法
GetNewStockInfo(Index, Account,Code,Name, Market, Price, Upperlimit, Lowerlimit)
得到指定基于0索引的新股信息
返回值:返回1调用成功,失败返回0
=
参数
参数 | 说明 | 备注 |
---|---|---|
Index | 基于0索引的序列,数据总量通过NewStockInfoCount方法函数获得,或者在ActionNotify中标志为2的事件中获取。 | 输入参数 |
Account | 指定查询的账户,若为空字符串则表示当前默认账户 | 输入参数 |
Code | 可申购股票代码 注意:如果频繁调用该属性,请注意使用完毕后释放返回值 | 输出参数 |
Code | 可申购股票名称 注意:如果频繁调用该属性,请注意使用完毕后释放返回值 | 输出参数 |
Market | 可申购股票市场 注意:如果频繁调用该属性,请注意使用完毕后释放返回值 | 输出参数 |
Price | 申购价格 | 输出参数 |
Upperlimit | 申购上限 | 输出参数 |
Lowerlimit | 申购下限 | 输出参数 |
注意:调用该函数前,请务必至少调用一次ReqNewStockInfo查询操作。
示例
Sub Test()
Dim Code
Dim Name
Dim Market
Dim Price
Dim Upperlimit
Dim Lowerlimit
NewSize = Order.NewStockInfoCount("")
For I = 0 To NewSize - 1
Ret = Order.GetNewStockInfo(i,"",Code,Name,Market,Price,Upperlimit,Lowerlimit)
If Ret = 1 Then
Application.MsgOut Code&"-"&Name&"-"&Market&"-"&Price&"-"&Upperlimit&"-"&Lowerlimit
Set Code = NoThing
Set Name = NoThing
Set Market = NoThing
End If
Next
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
应用于