以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  关于vba小问题  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=65420)
--  作者：kenan168
--  发布时间：2014/5/25 21:51:18
--  关于vba小问题

1.  我如何在for 中实现 continue 功能， 就是直接返回再循环， 可以写个例子吗  感谢

2. 如何获取 合约的跳动单位和合约单位，   比如  股指  0.2点一跳，  合约价值是  60块

3.如何通过 指定日期，获取合约的昨日结算价，  比如  指定  股指  2014-05-06 的结算价


感谢老师   
--  作者：guotx2010
--  发布时间：2014/5/26 8:40:35
--  
1、for实现continue可以使用if语句来判断某一个条件，成立执行后续语句，不成立则自动循环到下一个for循环
for i=1 to 10
    if i>2 and i<4 then        \'对于i大于2小于4的情况，执行if下面的语句，否则就跳到下一个循环判断，这就模拟了continue功能,条件你自己想就行了

    end if
next
2、获取合约信息，使用Order.Contract方法
Sub GetContractInfo(sCode,sMarket) \'获取合约的信息
\'Application.MsgOut sCode & "," & sMarket
on error resume next
Call Order.Contract(sCode,sMarket,Multipliter,MinTick,ShortPercent,LongPercent)
iMultipliter=Multipliter \'合约乘数
\'application.MsgOut iMultipliter
iMinTick=MinTick \'跳动单位
End Sub
3、只有marketdata的getreportdata方法可以返回昨结算价，要返回某一个日期的结算价，没有。