欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → GetHistoryData("IF00","ZJ",6)周数据问题

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有3256人关注过本帖树形打印复制链接

主题:GetHistoryData("IF00","ZJ",6)周数据问题

帅哥哟,离线,有人找我吗?
xieguihua
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:43 积分:250 威望:0 精华:1 注册:2012/7/12 14:05:28
GetHistoryData("IF00","ZJ",6)周数据问题  发帖心情 Post By:2013/2/19 16:39:26 [显示全部帖子]

请教老师:

 set weekk=marketdata.GetHistoryData("IF00","ZJ",6)

     weekk.openint(monthh.Count-1)

按说应该得到周持仓数据,但是结果显示为日持仓数据,这是为什么呢,


 回到顶部
帅哥哟,离线,有人找我吗?
xieguihua
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:43 积分:250 威望:0 精华:1 注册:2012/7/12 14:05:28
  发帖心情 Post By:2013/2/20 9:53:28 [显示全部帖子]

 For j=0 to UBound(marketName) 
      Cou = MarketData.GetReportCount(marketName(j))
      For i = 0 To Cou-1
        Set Report1= MarketData.GetReportDataByIndex(marketName(j),i)
         set dayy=marketdata.GetHistoryData(Report1.label,marketName(j),5)
             if date()=dayy.date(dayy.Count-1) then
                      application.MsgOut "日期为:"&dayy.date(dayy.Count-1)&" "& Report1.label &"  开盘价为:"&dayy.open(dayy.Count-1)&" 收盘价为:"& dayy.close(dayy.Count-1) &"  成交量为:"& dayy.volume(dayy.Count-1)                
            end if
     next
    next
    application.MsgOut  "日度数据!"
  dim weekk
  set weekk=nothing
  dim Report3
  set Reprot3=nothing
 
 
  if  Weekday(date())=3 or date()=dateValue(09/21/2013)   then
  m=m+1
  For j=0 to UBound(marketName)
      Couuu = MarketData.GetReportCount(marketName(j))
      For i = 0 To Couuu-1
          Set Report3 = MarketData.GetReportDataByIndex(marketName(j),i)
          set weekk=marketdata.GetHistoryData(Report3.label,marketName(j),6)
          if date()=weekk.date(weekk.Count-1) then 
                        application.MsgOut "日期为:"&weekk.date(weekk.Count-1)&" "& Report3.label &"  开盘价为:"&weekk.open(weekk.Count-1)&" 收盘价为:"& weekk.close(weekk.Count-1) &"  成交量为:"& weekk.volume(weekk.Count-1)
         end if
     next
     next
      application.MsgOut  "周度数据!"
  end if

 

结果为:

日期为:2013-2-20 IF00  开盘价为:2713.2 收盘价为:2707.8  成交量为:51492
日期为:2013-2-20 IF03  开盘价为:2713.2 收盘价为:2707.8  成交量为:51492
日期为:2013-2-20 IF04  开盘价为:2728 收盘价为:2722.2  成交量为:755
日期为:2013-2-20 IF06  开盘价为:2745 收盘价为:2743  成交量为:1226
日期为:2013-2-20 IF09  开盘价为:2777 收盘价为:2768.4  成交量为:114
日期为:2013-2-20 IF13  开盘价为:2720.1 收盘价为:2715  成交量为:53487
日度数据!
日期为:2013-2-20 IF00  开盘价为:2713.2 收盘价为:2707.8  成交量为:51492
日期为:2013-2-20 IF03  开盘价为:2713.2 收盘价为:2707.8  成交量为:51492
日期为:2013-2-20 IF04  开盘价为:2728 收盘价为:2722.2  成交量为:755
日期为:2013-2-20 IF06  开盘价为:2745 收盘价为:2743  成交量为:1226
日期为:2013-2-20 IF09  开盘价为:2777 收盘价为:2768.4  成交量为:114
日期为:2013-2-20 IF13  开盘价为:2720.1 收盘价为:2715  成交量为:53487
周度数据!

 

 

周度数据与日度数据完全是一样的。

 

 

 


 回到顶部