大伊人青草狠狠久久-大伊香蕉精品视频在线-大伊香蕉精品一区视频在线-大伊香蕉在线精品不卡视频-大伊香蕉在线精品视频75-大伊香蕉在线精品视频人碰人

您現在的位置:程序化交易>> 期貨公式>> 金字塔等>> 金字塔知識>>正文內容

修改了版主代碼,發出全平模塊(增加下信息資源) [金字塔]

  • 咨詢內容: function GetHoldStr(sAccount) dim i dim BuyHold dim BuyCost dim SellHold dim SellCost dim CurCode dim CurMarket   On Error resume Next
     HoldingCount=Order.Holding2(sAccount)  If HoldingCount>0 then   For i=0 to HoldingCount-1    Call Order.HoldingInfo2(i,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,Code,Market,sAccount)    CurCode=Code    CurMarket=Market    BuyHold=BuyHolding    SellHold=SellHolding    HoldStr=HoldStr & CurCode    if BuyHold>0 then      call order.sell(1,BuyHold,0,0,CurCode,CurMarket,sAccount,0)    end if    if SellHold>0 then       call order.sellshort(1,SellHold,0,0,CurCode,CurMarket,sAccount,0)       end if     Next  End If End function [此貼子已經被作者于2013-5-27 11:07:34編輯過]

     

  • 金字塔客服:

    說明詳細一些,另外測試過了?

    搞好了加精

     

  • 用戶回復: 測試過了  稍后加上說明

     

  • 網友回復: '此模塊中sAccount為傳遞賬號,對按照某個時間(比如15:30)平全部倉位的用戶可以直接調用此模塊,用call語句就行。可以直接放在模塊中 '也可以復制代碼到大家做需要的窗體中進行調用。

    第一種:'創建了一個窗體,加上一個按鈕來觸發,導入附件后就能使用

    Sub UserForm1_CommandButton1_Click()'輸入賬號    call getholdstr(803156)    End Sub

    '該模塊主要用來保存宏主執行主函數,不要拿做他用


    function GetHoldStr(sAccount)'定義所需變量 dim i dim BuyHold dim BuyCost dim SellHold dim SellCost dim CurCode dim CurMarket   On Error resume Next'索取持倉合約數 HoldingCount=Order.Holding2(sAccount)'遍歷所有持倉,索取多空頭和持倉合約  If HoldingCount>0 then   For i=0 to HoldingCount-1    Call Order.HoldingInfo2(i,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,Code,Market,sAccount)    CurCode=Code    CurMarket=Market    BuyHold=BuyHolding    SellHold=SellHolding    HoldStr=HoldStr & CurCode'取得多頭持倉,按照事件返回的手數和相關信息進行平多    if BuyHold>0 then      call order.sell(1,BuyHold,0,0,CurCode,CurMarket,sAccount,0)    end if'取得空頭持倉,按照事件返回的手數和相關信息進行平空    if SellHold>0 then       call order.sellshort(1,SellHold,0,0,CurCode,CurMarket,sAccount,0)       end if     Next  End If End function
     下載信息  [文件大小:   下載次數: ]點擊瀏覽該文件:userform1.rar



    第二種 適合用vba做日內的,'大家也可把function函數直接放到大家已經編輯好的代碼中加上定時器來讀取時間  (定時器到收盤15:00進行全平操作)  

    sub application_vbastart()   '設置定時器,每秒刷新       call application.SetTimer(1,1000)end sub
    sub application_timer(id)    application.MsgOut(right(now,8))    if  id=1 then         '輸入自己要日內平倉時間 ,now函數返回的時間是有日期的 我們用right方法去掉日期。就順利取得時分秒,^,^                   if right(now,8)>="13:23:30" then     '輸入自己的賬號               call GetHoldStr(888)                      end if                     end if end sub



    sub application_vbaend()'刪除定時器,釋放資源    call application.KillTimer(1)    end sub
    '插入模塊function GetHoldStr(sAccount)'定義所需變量 dim i dim BuyHold dim BuyCost dim SellHold dim SellCost dim CurCode dim CurMarket   On Error resume Next'索取持倉合約數 HoldingCount=Order.Holding2(sAccount)'遍歷所有持倉,索取多空頭和持倉合約  If HoldingCount>0 then   For i=0 to HoldingCount-1    Call Order.HoldingInfo2(i,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,Code,Market,sAccount)    CurCode=Code    CurMarket=Market    BuyHold=BuyHolding    SellHold=SellHolding    HoldStr=HoldStr & CurCode'取得多頭持倉,按照事件返回的手數和相關信息進行平多    if BuyHold>0 then      call order.sell(1,BuyHold,0,0,CurCode,CurMarket,sAccount,0)    end if'取得空頭持倉,按照事件返回的手數和相關信息進行平空    if SellHold>0 then       call order.sellshort(1,SellHold,0,0,CurCode,CurMarket,sAccount,0)       end if     Next  End If End function
     下載信息  [文件大小:   下載次數: ]點擊瀏覽該文件:userform2.rar

     

  • 網友回復: 看來我那個帖子已經深入人心了,還能做舉一反三,進行修改了,擴展了,本人深感榮幸。希望有更多的人能熟練掌握vba開發。

 

有思路,想編寫各種指標公式,程序化交易模型,選股公式,預警公式的朋友

可聯系技術人員 QQ: 1145508240  有需要幫忙請點擊這里留言!!!進行 有償 編寫!不貴!點擊查看價格!


【字體: 】【打印文章】【查看評論

相關文章

    沒有相關內容
主站蜘蛛池模板: 国产在线观看99 | 伊人精品视频一区二区三区 | 成年女人18毛片毛片免费 | 国产在播放一区 | 国产精品在线 | 免费看一级黄色毛片 | 国产一区二区在线 |播放 | 精品福利影院 | 久久精品国产99精品最新 | 久久99综合国产精品亚洲首页 | 亚洲精品一区二区中文 | 亚洲香蕉在线 | 97在线观免费视频观看 | 国产99视频精品免视看9 | 日韩爱爱| 97视频免费上传播放 | 日韩欧美~中文字幕 | 337p欧洲亚洲大胆艺术 | 2021福利视频 | 久久机热这里只有精品无需 | 大片国产片日本观看免费视频 | 久久精品人人做人人看最新章 | 国内精品免费久久久久妲己 | 九九啪| 四虎国产精品永久地址48 | 天天操夜夜欢 | 九九热视频精品在线观看 | 一区二区三区毛片免费 | 日韩3区| 91精品久久久久久久久网影视 | 全免费毛片在线播放 | 日本成人a视频 | 成人午夜精品久久久久久久小说 | 野外一级毛片 | 一个色综合亚洲色综合 | 欧美一级视频精品观看 | 永久免费的啪啪免费的网址 | 国内精品欧美久久精品 | 四虎国产精品免费五月天 | 香蕉国产精品 | 国产大毛片|