# OPOBYPRIRCE 方法
OPOBYPRIRCE(InCode, InMarket, Price, Direct, MonthType, Check, OutCode, OutMarket)
 通过行权价获取相关期权合约,可以通过该方法函数方便的对标的合约的行权价相关的期权合约进行快速定位.
返回值:如果查找成功则返回1,否则返回0
参数
 | 参数 | 说明 | 备注 | 
|---|---|---|
| InCode | 标的合约代码 | 输入参数 | 
| InMarket | 期权合约的市场 | 输入参数 | 
| Price | 欲查找的行权价期权合约行权价 | 输入参数 | 
| Direct | 行权方向: 0认购 1认沽  |  输入参数 | 
| MonthType | 交割月份类型选择:  若为0则系统自动选择对应行权价的合约 若为1则系统会按照最靠近当前交割月份的合约  |  输入参数 | 
| Check | 价格检查:  若为1则Price参数价格大小在标的合约行权价之外时该方法函数无效, 若为0表示不检查  |  输入参数 | 
| OutCode | 返回符合标准的期权品种代码.   注意:如果频繁调用该属性,请注意使用完毕后释放返回值  |  输出参数 | 
| OutMarket | 返回符合标准的期权品种代码.   注意:如果频繁调用该属性,请注意使用完毕后释放返回值  |  输出参数 | 
注意:若系统找不到精确的行权价期权合约,那么将返回最邻近的期权合约
示例
 Sub Test()
    Code = ""
    Market = ""
    '查找180ETF合约的价格为3.1行权价距离最近交割月的期权对应合约
    If marketdata.OPOBYPRIRCE("510180","QQ", 3.1, 0, 1, 1, Code, Market) > 0 Then
    '找到合约后打印输出合约品种和市场 
        Application.MsgOut Code &"---"& Market
    '释放字符串变量内存
        Set Code = nothing
        Set Market = nothing 
    End If
end sub
 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
应用于