到期合約換月自動(dòng)移倉代碼

'代碼中需要用到Y(jié)cSet.ini文件，自己建立一個(gè)放到c:\,內(nèi)容如下：

[gen]

AccountCount=1

Account1_Code=888888

Account1_Yc=1

有n個(gè)賬戶需要自動(dòng)移倉，則AccountCode=n，注意：多賬戶時(shí)需要機(jī)構(gòu)版，同時(shí)登陸這些賬戶

Account1中的1，是序號(hào)，有多個(gè)時(shí)，依次遞增，_Code指定該賬戶的賬號(hào)，_Yc為1表示要自動(dòng)移倉，0則不要。

'''''以下為代碼

public iMultipliter   

public ZhuLiCode,AccountID   '主力合約,賬戶

Sub APPLICATION_VBAStart()
 Call Application.SetTimer(2,1000*30)  '使用定時(shí)器30秒輪詢
End Sub

Sub Application_Timer(ID)
 'Application.MsgOut CDate(Time)
 if weekday(cdate(date),vbMonday)>=6 then  '周六、周日不執(zhí)行
  exit sub
 end if 
 '''''''''''''''''
 If CDate(Time)>=cdate("10:0000") then    '10:00-10:10判斷是否需要移倉
  If CDate(Time)<=cdate("10:10:00") then
   TotalAccount=Cdbl(Document.GetPrivateProfileString("Gen","AccountCount",0,"C:\YcSet.Ini"))  '賬戶數(shù)
   For j=1 to TotalAccount
    CurrentAccount=Document.GetPrivateProfileString("Gen","Account" & Cstr(j) & "_Code",0,"C:\YcSet.Ini")  '本賬戶號(hào)碼
    Yc=Document.GetPrivateProfileString("Gen","Account" & Cstr(j) & "_Yc",0,"C:\YcSet.Ini")  '是否移倉
    if Yc=1 then
     GetAllHolding CurrentAccount
    end if 
   Next 
  end if
 end if  
End Sub

'獲取合約乘數(shù)
Sub GetContract(sCode,sMarket)
 'Application.MsgOut sCode & "," & sMarket
 Call Order.Contract(sCode,sMarket,Multipliter,MinTick,ShortPercent,LongPercent)
 iMultipliter=Multipliter
 'application.MsgOut iMultipliter
 iMinTick=MinTick
 iShortPercent=ShortPercent
 iLongPercent=LongPercent
End Sub

Sub GetAllHolding(sAccount)
  dim i,k
  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
    AutoYiCang CurCode,CurMarket,BuyHold,SellHold,sAccount  '自動(dòng)移倉
   Next 
  End If 
End Sub

sub AutoYiCang(sCode,sMarket,iBuy,iSell,sAcc)
 dim PreCode
 dim i
 
 for i=1 to len(sCode)
  if isnumeric(mid(sCode,i,1)) then
   PreCode=left(sCode,i-1)
   exit for
  end if 
 next
 'application.MsgOut "i:" & i & ",PreCode:" & PreCode & ",sAcc:" & sAcc
 GetContractCode sMarket,PreCode
 if sCode<>ZhuLiCode And left(ZhuLiCode,i-1)=left(sCode,i-1) then  '不是持有主力合約
  if iBuy>0 then
   PingDuoDan 0,sCode,sMarket,iBuy,sAcc
   KaiDuoDan 0,ZhuLiCode,sMarket,iBuy,sAcc
  end if
  if iSell>0 then
   PingKongDan 0,sCode,sMarket,iSell,sAcc
   KaiKongDan 0,ZhuLiCode,sMarket,iSell,sAcc
  end if
 end if
end sub

Sub GetContractCode(sMarketCode,sStockPre)    '根據(jù)市場(chǎng)編碼取得主力合約編碼
 If sMarketCode="" then
  exit sub
 End if 
 
 contractvolume = 0
  
 n = marketdata.GetReportCount(sMarketCode)
 For j = 0 To n - 1
  Set report1 = marketdata.GetReportDataByIndex(sMarketCode, j)
  suffixlabel = Right(report1.Label, 2)
  If sStockPre=left(report1.Label,len(sStockPre)) then
   If suffixlabel = "00" Then
    ZhuLiVol=report1.volume
   End If
 
   If cdbl(suffixlabel) >= 1 And cdbl(suffixlabel) <= 12 Then
    If report1.volume = ZhuLiVol Then
     ZhuLiCode = report1.Label
     'application.MsgOut ZhuLiCode
     exit for
    End If
   End If
  End if 
 Next
End Sub

'開多單
Sub KaiDuoDan(nPrice,sCode,sMarket,iOrdVol,sAccount)  '開多單，nPrice=0時(shí)為市價(jià)，否則就是傳遞過來的價(jià)
 'application.MsgOut "iOrdVol:" & iOrdVol & "," & sCode & "," & sMarket & "," & sAccount & "," & nPrice
 If iOrdVol>0 then
  If nPrice=0 then
   'application.MsgOut "sCode,sMarket,AccountID:" & sCode & "," & sMarket & "," & AccountID
   Call Order.Buy(1,iOrdVol,0,0,sCode,sMarket,sAccount,0)     '市價(jià)開多單
  Else
   Call Order.Buy(0,iOrdVol,nPrice,0,sCode,sMarket,sAccount,0)   '限價(jià)開多單
  End If 
 End If
End Sub

'開空單
Sub KaiKongDan(nPrice,sCode,sMarket,iOrdVol,sAccount)  '開空單，nPrice=0時(shí)為市價(jià)，否則就是傳遞過來的價(jià)
 'application.MsgOut "iOrdVol:" & iOrdVol & "," & sCode & "," & sMarket & "," & sAccount & "," & nPrice
 If iOrdVol>0 then
  If nPrice=0 then
   Call Order.BuyShort(1,iOrdVol,0,0,sCode,sMarket,sAccount,0)    '市價(jià)開空單
  Else
   Call Order.BuyShort(0,iOrdVol,nPrice,0,sCode,sMarket,sAccount,0)   '限價(jià)開空單
  End If 
 End If
End Sub

'平多單
Sub PingDuoDan(nPrice,sCode,sMarket,iOrdVol,sAccount)  '平多單，nPrice=0時(shí)為市價(jià)，否則就是傳遞過來的價(jià)
 If iOrdVol>0 then
  If nPrice=0 then
   Call Order.Sell(1,iOrdVol,0,0,sCode,sMarket,sAccount,0)    '市價(jià)平多單
  Else
   Call Order.Sell(0,iOrdVol,nPrice,0,sCode,sMarket,sAccount,0)   '限價(jià)平多單
  End If 
 End If
End Sub
'平空單
Sub PingKongDan(nPrice,sCode,sMarket,iOrdVol,sAccount)  '平空單，nPrice=0時(shí)為市價(jià)，否則就是傳遞過來的價(jià)
 If iOrdVol>0 then
  If nPrice=0 then
   Call Order.SellShort(1,iOrdVol,0,0,sCode,sMarket,sAccount,0)    '市價(jià)平空單
  Else
   Call Order.SellShort(0,iOrdVol,nPrice,0,sCode,sMarket,sAccount,0)   '限價(jià)平空單
  End If 
 End If
End Sub

'代碼中需要用到Y(jié)cSet.ini文件，自己建立一個(gè)放到c:\,內(nèi)容如下：

[gen]

AccountCount=1

Account1_Code=888888

Account1_Yc=1

有n個(gè)賬戶需要自動(dòng)移倉，則AccountCode=n，注意：多賬戶時(shí)需要機(jī)構(gòu)版，同時(shí)登陸這些賬戶

Account1中的1，是序號(hào)，有多個(gè)時(shí)，依次遞增，_Code指定該賬戶的賬號(hào)，_Yc為1表示要自動(dòng)移倉，0則不要。

'''''以下為代碼

public iMultipliter   

public ZhuLiCode,AccountID   '主力合約,賬戶

Sub APPLICATION_VBAStart()
 Call Application.SetTimer(2,1000*30)  '使用定時(shí)器30秒輪詢
End Sub

Sub Application_Timer(ID)
 'Application.MsgOut CDate(Time)
 if weekday(cdate(date),vbMonday)>=6 then  '周六、周日不執(zhí)行
  exit sub
 end if 
 '''''''''''''''''
 If CDate(Time)>=cdate("10:0000") then    '10:00-10:10判斷是否需要移倉
  If CDate(Time)<=cdate("10:10:00") then
   TotalAccount=Cdbl(Document.GetPrivateProfileString("Gen","AccountCount",0,"C:\YcSet.Ini"))  '賬戶數(shù)
   For j=1 to TotalAccount
    CurrentAccount=Document.GetPrivateProfileString("Gen","Account" & Cstr(j) & "_Code",0,"C:\YcSet.Ini")  '本賬戶號(hào)碼
    Yc=Document.GetPrivateProfileString("Gen","Account" & Cstr(j) & "_Yc",0,"C:\YcSet.Ini")  '是否移倉
    if Yc=1 then
     GetAllHolding CurrentAccount
    end if 
   Next 
  end if
 end if  
End Sub

'獲取合約乘數(shù)
Sub GetContract(sCode,sMarket)
 'Application.MsgOut sCode & "," & sMarket
 Call Order.Contract(sCode,sMarket,Multipliter,MinTick,ShortPercent,LongPercent)
 iMultipliter=Multipliter
 'application.MsgOut iMultipliter
 iMinTick=MinTick
 iShortPercent=ShortPercent
 iLongPercent=LongPercent
End Sub

Sub GetAllHolding(sAccount)
  dim i,k
  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
    AutoYiCang CurCode,CurMarket,BuyHold,SellHold,sAccount  '自動(dòng)移倉
   Next 
  End If 
End Sub

sub AutoYiCang(sCode,sMarket,iBuy,iSell,sAcc)
 dim PreCode
 dim i
 
 for i=1 to len(sCode)
  if isnumeric(mid(sCode,i,1)) then
   PreCode=left(sCode,i-1)
   exit for
  end if 
 next
 'application.MsgOut "i:" & i & ",PreCode:" & PreCode & ",sAcc:" & sAcc
 GetContractCode sMarket,PreCode
 if sCode<>ZhuLiCode And left(ZhuLiCode,i-1)=left(sCode,i-1) then  '不是持有主力合約
  if iBuy>0 then
   PingDuoDan 0,sCode,sMarket,iBuy,sAcc
   KaiDuoDan 0,ZhuLiCode,sMarket,iBuy,sAcc
  end if
  if iSell>0 then
   PingKongDan 0,sCode,sMarket,iSell,sAcc
   KaiKongDan 0,ZhuLiCode,sMarket,iSell,sAcc
  end if
 end if
end sub

Sub GetContractCode(sMarketCode,sStockPre)    '根據(jù)市場(chǎng)編碼取得主力合約編碼
 If sMarketCode="" then
  exit sub
 End if 
 
 contractvolume = 0
  
 n = marketdata.GetReportCount(sMarketCode)
 For j = 0 To n - 1
  Set report1 = marketdata.GetReportDataByIndex(sMarketCode, j)
  suffixlabel = Right(report1.Label, 2)
  If sStockPre=left(report1.Label,len(sStockPre)) then
   If suffixlabel = "00" Then
    ZhuLiVol=report1.volume
   End If
 
   If cdbl(suffixlabel) >= 1 And cdbl(suffixlabel) <= 12 Then
    If report1.volume = ZhuLiVol Then
     ZhuLiCode = report1.Label
     'application.MsgOut ZhuLiCode
     exit for
    End If
   End If
  End if 
 Next
End Sub

'開多單
Sub KaiDuoDan(nPrice,sCode,sMarket,iOrdVol,sAccount)  '開多單，nPrice=0時(shí)為市價(jià)，否則就是傳遞過來的價(jià)
 'application.MsgOut "iOrdVol:" & iOrdVol & "," & sCode & "," & sMarket & "," & sAccount & "," & nPrice
 If iOrdVol>0 then
  If nPrice=0 then
   'application.MsgOut "sCode,sMarket,AccountID:" & sCode & "," & sMarket & "," & AccountID
   Call Order.Buy(1,iOrdVol,0,0,sCode,sMarket,sAccount,0)     '市價(jià)開多單
  Else
   Call Order.Buy(0,iOrdVol,nPrice,0,sCode,sMarket,sAccount,0)   '限價(jià)開多單
  End If 
 End If
End Sub

'開空單
Sub KaiKongDan(nPrice,sCode,sMarket,iOrdVol,sAccount)  '開空單，nPrice=0時(shí)為市價(jià)，否則就是傳遞過來的價(jià)
 'application.MsgOut "iOrdVol:" & iOrdVol & "," & sCode & "," & sMarket & "," & sAccount & "," & nPrice
 If iOrdVol>0 then
  If nPrice=0 then
   Call Order.BuyShort(1,iOrdVol,0,0,sCode,sMarket,sAccount,0)    '市價(jià)開空單
  Else
   Call Order.BuyShort(0,iOrdVol,nPrice,0,sCode,sMarket,sAccount,0)   '限價(jià)開空單
  End If 
 End If
End Sub

'平多單
Sub PingDuoDan(nPrice,sCode,sMarket,iOrdVol,sAccount)  '平多單，nPrice=0時(shí)為市價(jià)，否則就是傳遞過來的價(jià)
 If iOrdVol>0 then
  If nPrice=0 then
   Call Order.Sell(1,iOrdVol,0,0,sCode,sMarket,sAccount,0)    '市價(jià)平多單
  Else
   Call Order.Sell(0,iOrdVol,nPrice,0,sCode,sMarket,sAccount,0)   '限價(jià)平多單
  End If 
 End If
End Sub
'平空單
Sub PingKongDan(nPrice,sCode,sMarket,iOrdVol,sAccount)  '平空單，nPrice=0時(shí)為市價(jià)，否則就是傳遞過來的價(jià)
 If iOrdVol>0 then
  If nPrice=0 then
   Call Order.SellShort(1,iOrdVol,0,0,sCode,sMarket,sAccount,0)    '市價(jià)平空單
  Else
   Call Order.SellShort(0,iOrdVol,nPrice,0,sCode,sMarket,sAccount,0)   '限價(jià)平空單
  End If 
 End If
End Sub