以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (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=163691)
--  作者：anhaizhong
--  发布时间：2018/5/28 22:46:01
--  能在vba中计算均价吗
能在vba中计算均价吗，如果能怎么计算？ 谢谢
--  作者：yukizzc
--  发布时间：2018/5/29 8:50:43
--  

您要计算什么均价，k线均价吗根据ma算法自己写就行了

 
--  作者：anhaizhong
--  发布时间：2018/5/30 9:29:50
--  

 Set History1 = marketdata.GetHistoryData("zn07","sq",5)
Set History2 = marketdata.GetHistoryData("zn08","sq",0)
 
 c2 = History1.close(History2.Count-1)
msgbox c2

 

我想得到两个品种的报价，不是这样吗， 现在c2 的价格是History1的
--  作者：anhaizhong
--  发布时间：2018/5/30 9:38:02
--  

 Set History1 = marketdata.GetHistoryData("zn07","sq",5)
 Set History2 = marketdata.GetHistoryData("zn08","sq",0)

 c2 = History1.close(History1.Count-1)
msgbox c2

 

刚才的的那个发错了，应该是这样

 

 
--  作者：yukizzc
--  发布时间：2018/5/30 10:35:49
--  
  marketdata.HistoryDataMode=1\'不同品种为独立的缓冲区

       set Data1= marketdata.GetHistoryData("if12","zj",0)              
       set Data2= marketdata.GetHistoryData("if11","zj",0)  

       \'这里的代码处理Data1和Data2的对象数据

       \'数据处理完毕后,清理缓冲区
      marketdata.DestroyHistoryData

 

看下帮助里信息，对于不同品种要设置独立的缓冲区