-- 作者:明心
-- 发布时间:2011/1/26 17:03:45
-- 高手指教
Sub lianxuchicang() \' 得到框架名称为"Technic",窗格名称为"Main"的窗格对象 Set Grid = Technic.GetGridByName("Main") Market = Grid.Market StockName = Grid.StockName StockLabel = Grid.StockLabel CycType = Grid.CycType lenname = len(StockName) name = left(StockName,2)
if CycType = 5 then \'寻找该品种连续合约 Count = MarketData.GetReportCount(market) for w =0 to Count-1 Set ReportData1 = MarketData.GetReportDataByIndex(market,w) if right(reportData1.Label,2) ="00" and left(reportData1.StockName,2) = name then lxLabel = reportData1.Label lxStockName = reportData1.StockName \'application.MsgOut lxLabel&" "&lxStockName end if next w = 0 \'计算该市场中该品种所有合约的持仓量 Set History = marketdata.GetHistoryData(lxLabel,market,CycType) for k = 0 to History.Count-1 ccl = 0 lxdate = History.date(k) close = History.close(k) for w = 0 to Count-1 Set ReportData2 = MarketData.GetReportDataByIndex(market,w) if Right(ReportData2.Label,2) >= "01" And Right(ReportData2.Label,2) <= "12" and left(reportData2.StockName,2) = name Then Set History1 = marketdata.GetHistoryData(ReportData2.Label,market,CycType) \' for i = 0 to History1.Count-1 \' if History1.Date(i) = lxdate then \' Openint = History1.Openint(i) \' end if \' next \' ccl = ccl+Openint end if next History.Openint(k) = ccl application.MsgOut lxdate&" "&close \' call History.SaveData(lxLabel,market,CycType) next application.MsgOut lxLabel&" "&lxStockName&" "&"持仓更新完毕!" else application.MsgOut "该周期没有数据需要更新!" end if End Sub
输出的数据有点问题,最后一段时间时间和数据怎么都为0呢,哪里错了,请指教
2010-4-22 3236.2 2010-4-19 3320 2010-4-20 3353 2010-4-21 3409 2010-4-22 3387.4 2010-4-23 3385 2010-4-26 3390.4 2010-4-27 3338.2 2010-4-28 3339.8 2010-4-29 3298.2 2010-4-30 3326.8 2010-5-4 3294 2010-5-5 3278 2010-5-6 3195 2010-5-7 3100 2010-5-10 3078 2010-5-11 2948.6 2010-5-12 2940 2010-5-13 2996.8 2010-5-14 2965.8 2010-5-17 2757 2010-5-18 2871.6 2010-5-19 2855 2010-5-20 2846.6 2010-5-21 2898.8 2010-5-24 3021.8 2010-5-25 2927.2 2010-5-26 2946.8 2010-5-27 3007 2010-5-28 2969.6 2010-5-31 2890.2 2010-6-1 2858.4 2010-6-2 2872.4 2010-6-3 2842.2 2010-6-4 2853.6 2010-6-7 2782 2010-6-8 2796 2010-6-9 2867.2 2010-6-10 2851 2010-6-11 2864.4 2010-6-17 2843.4 2010-6-18 2804.2 2010-6-21 2895.2 2010-6-22 2888.6 2010-6-23 2853.2 2010-6-24 2857 2010-6-25 2840 2010-6-28 2828 2010-6-29 2688.4 2010-6-30 2664.8 2010-7-1 2626.4 2010-7-2 2637 2010-7-5 2615.6 2010-7-6 2649 2010-7-7 2649.6 2010-7-8 2645.2 2010-7-9 2724.6 2010-7-12 2729 2010-7-13 2692.4 2010-7-14 2710.8 2010-7-15 2662 2010-7-16 2667.2 2010-7-19 2737.8 2010-7-20 2794 2010-7-21 2790.8 2010-7-22 2830 2010-7-23 2834 2010-7-26 2848 2010-7-27 2830 2010-7-28 2938 2010-7-29 2928.6 2010-7-30 2926.6 2010-8-2 2982.2 2010-8-3 2909.8 2010-8-4 2931 2010-8-5 2900.8 2010-8-6 2973 2010-8-9 2964.2 2010-8-10 2885.4 2010-8-11 2890.2 2010-8-12 2873 2010-8-13 2901 2010-8-16 2977 2010-8-17 3003.4 2010-8-18 2999.4 2010-8-19 3027.6 2010-8-20 2965.6 2010-8-23 2942 2010-8-24 2950 2010-8-25 2891 2010-8-26 2904 2010-8-27 2912 2010-8-30 2971.8 2010-8-31 2951.4 2010-9-1 2934.8 2010-9-2 2972.2 2010-9-3 2973.6 2010-9-6 3035.2 2010-9-7 3040 2010-9-8 3037.4 2010-9-9 2983 2010-9-10 2976 2010-9-13 3010 2010-9-14 3007 2010-9-15 2959.2 2010-9-16 2910.8 2010-9-17 2907 2010-9-20 2899 2010-9-21 2897.2 2010-9-27 2929 2010-9-28 2915 2010-9-29 2917 2010-9-30 2973.6 2010-10-8 3082.4 2010-10-11 3169.4 2010-10-12 3184.8 2010-10-13 3247 2010-10-14 3266.6 2010-10-15 3410.8 2010-10-18 3349.6 2010-10-19 3439.6 2010-10-20 3481.2 2010-10-21 3472.8 2010-10-22 3485 2010-10-25 3631.6 2010-10-26 3591.6 2010-10-27 3527.6 2010-10-28 3569.6 2010-10-29 3469.8 2010-11-1 3600.2 2010-11-2 3552 2010-11-3 3533 2010-11-4 3605 2010-11-5 3686.4 2010-11-8 3651 2010-11-9 3621.4 2010-11-10 3577 2010-11-11 3573.4 2010-11-12 3342.4 2010-11-15 3352.8 2010-11-16 3211.2 2010-11-17 3156 2010-11-18 3190.4 2010-11-19 3244 2010-11-22 3189 2010-11-23 3121.4 2010-11-24 3197.4 2010-11-25 3227.6 2010-11-26 3213 2010-11-29 3212 2010-11-30 3153.2 2010-12-1 3145.6 2010-12-2 3167.8 2010-12-3 3175 2010-12-6 3171 2010-12-7 3221.8 2010-12-8 3159.6 2010-12-9 3139.8 2010-12-10 3171.6 2010-12-13 3275.6 2010-12-14 3277.8 2010-12-15 3252.8 2010-12-16 3228.4 2010-12-17 3221.2 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 0:00:00 0 IF00 股指连续 持仓更新完毕!
|
-- 作者:明心
-- 发布时间:2011/1/26 17:14:56
--
我怀疑就这里面有问题,但不知道问题出在哪里
for w = 0 to Count-1 Set ReportData2 = MarketData.GetReportDataByIndex(market,w) if Right(ReportData2.Label,2) >= "01" And Right(ReportData2.Label,2) <= "12" and left(reportData2.StockName,2) = name Then Set History1 = marketdata.GetHistoryData(ReportData2.Label,market,CycType) \' for i = 0 to History1.Count-1 \' if History1.Date(i) = lxdate then \' Openint = History1.Openint(i) \' end if \' next \' ccl = ccl+Openint end if next
|