-- 作者:xieguihua
-- 发布时间:2013/2/19 16:39:26
-- GetHistoryData("IF00","ZJ",6)周数据问题
请教老师:
set weekk=marketdata.GetHistoryData("IF00","ZJ",6)
weekk.openint(monthh.Count-1)
按说应该得到周持仓数据,但是结果显示为日持仓数据,这是为什么呢,
|
-- 作者:xieguihua
-- 发布时间: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 周度数据!
周度数据与日度数据完全是一样的。
|