這個程序編譯的時候通不過,不知道怎么轉(zhuǎn)換,請教了

作者：金字塔來源：cxh99.com 發(fā)布時間：2015年01月16日

咨詢內(nèi)容：
dim shanchushanchu = 0 ；
dim dangtianshuju ；
dim bili bili = 0.001 ；
dim xinheyuexinheyue = "IF88" ；
dim xinmingchengxinmingcheng = "IF等價K線"；
dim xinshichangxinshichang = "ZJ" ；
dim laoheyuelaoheyue = "IF00" ；
dim laoshichanglaoshichang = "ZJ"；
dim laozhishulaozhishu = "IF13" ；
Sub lishishuju() ；
cunzai = marketdata.IsExistStock(xinheyue,xinshichang)    ；
if cunzai = 0 then
call
marketdata.AddStock(xinheyue,xinshichang,xinmingcheng) ；
application.MsgOut ；
else
application.MsgOut；
end if

set
Report1 = marketdata.GetReportData(laoheyue,laoshichang) ；
qj = Report1.Open*bili   ；
if shanchu = 1
then
Set
History1 = marketdata.GetHistoryData(xinheyue,xinshichang,0)；
for j = 0 to History1.Count-1
History1.RemoveAt(j) ；
next
call
History1.InsertAt(0)      ；
History1.open(0) = Report1.Open    ；
History1.close(0) = Report1.Open       ；
History1.high(0) = Report1.Open       ；
History1.low(0) = Report1.Open      ；
History1.Date(0) = Report1.Date       ；
History1.Volume(0) = Report1.Volume      ；
History1.OpenInt(0) = Report1.OpenInt      ；
Call
History1.SaveData(xinheyue,xinshichang,1) ；
application.MsgOut ；"等價K線【歷史數(shù)據(jù)初始化】成功！"
end if
set
minutedata = marketdata.GetMinuteData(laoheyue,laoshichang) ；
Count = minutedata.Count    ；
for i = 1 to count-1
Set
History2 = marketdata.GetHistoryData(xinheyue,xinshichang,0) ；
mxopen = History2.open(History2.Count-1)；
mxclose = History2.close(History2.Count-1)；
mxhigh = History2.high(History2.Count-1)；
mxlow = History2.low(History2.Count-1)；
mxDate = History2.Date(History2.Count-1)；
mxVolume = History2.Volume(History2.Count-1)；
mxOpenInt = History2.OpenInt(History2.Count-1)；
close = minutedata.newprice(i)；
fbDate = minutedata.Date(i)；
Volume = minutedata.Volume(i)；
mxVolume = minutedata.Volume(i-1)；
OpenInt = minutedata.OpenInt(i)；
if close > mxhigh
then
mxhigh = close；
end if
if close < mxlow
then
mxlow = close；
end if
mxdate = fbDate；
mxxVolume = (Volume-mxVolume)+mxxVolume；
mxOpenInt = OpenInt ；
History2.close(History2.Count-1) = close；
History2.high(History2.Count-1) = mxhigh；
History2.low(History2.Count-1) = mxlow ；
History2.Date(History2.Count-1) = mxdate；
History2.Volume(History2.Count-1) = mxxVolume；
History2.OpenInt(History2.Count-1) = mxOpenInt；
call
History2.SaveData(xinheyue,xinshichang,1)；
if abs(close-mxopen) > qj
then
call
History2.InsertAt(History2.Count) ；
History2.open(History2.Count-1) = close；
History2.close(History2.Count-1) = close；
History2.high(History2.Count-1) = close ；
History2.low(History2.Count-1) = close ；
History2.Date(History2.Count-1) = mxdate；
History2.Volume(History2.Count-1) = 0；
History2.OpenInt(History2.Count-1) = OpenInt；
call
History2.SaveData(xinheyue,xinshichang,1)；
mxxVolume = 0 ；
end if
next
End Sub
sub dengjiaK()；
call
lishishuju()；
end sub
Sub APPLICATION_VBAStart()；
call
Application.SetTimer(0,1000)；

Sub APPLICATION_Timer(ID)；
if ID = 0
then
if (cdate(time)<=cdate("11:30:00") and cdate(time)>cdate("9:15:00")) or (cdate(time)<=cdate("15:15:00") and cdate(time)>cdate("13:00:00")) then           '等價區(qū)間處理
set
Report1 = marketdata.GetReportData(laoheyue,laoshichang)；
qj = Report1.Open*bili；
set
Report2； = marketdata.GetReportData(laozhishu,laoshichang)；
Set
History2 = marketdata.GetHistoryData(xinheyue,xinshichang,0)；
mxopen = History2.open(History2.Count-1)；
mxclose = History2.close(History2.Count-1)；
mxhigh = History2.high(History2.Count-1)；
mxlow = History2.low(History2.Count-1)；
mxDate = History2.Date(History2.Count-1)；
mxxVolume = History2.Volume(History2.Count-1)；
mxOpenInt = History2.OpenInt(History2.Count-1)；
set
minutedata = marketdata.GetMinuteData(laoheyue,laoshichang)；
Count = minutedata.Count ；
close = minutedata.newprice(Count-1)；
fbDate = minutedata.Date(Count-1)；
mxVolume = minutedata.Volume(Count-2)；
Volume = minutedata.Volume(Count-1)；
OpenInt = minutedata.OpenInt(Count-1)；
if close > mxhigh
then
mxhigh = close ；
end if
if close < mxlow
then
mxlow = close ；
end if
mxdate = fbDate ；
mxxVolume = mxxVolume+(Volume-mxVolume)；
mxOpenInt =OpenInt' ；
application.MsgOut mxxVolume&" "&Volume&" "&Volume-mxVolume
History2.close(History2.Count-1) = close；
History2.high(History2.Count-1) = mxhigh ；
History2.low(History2.Count-1) = mxlow ；
History2.Date(History2.Count-1) = mxdate；
History2.Volume(History2.Count-1) = mxxVolume；
History2.OpenInt(History2.Count-1) = mxOpenInt ；
call
History2.SaveData(xinheyue,xinshichang,1) ；
if abs(close-mxopen) > qj
then
call
History2.InsertAt(History2.Count) ；
History2.open(History2.Count-1) = close；
History2.close(History2.Count-1) = close ；
History2.high(History2.Count-1) = close ；
History2.low(History2.Count-1) = close   ；
History2.Date(History2.Count-1) = mxdate   ；
History2.Volume(History2.Count-1) = 0    ；
History2.OpenInt(History2.Count-1) = OpenInt ；
call
History2.SaveData(xinheyue,xinshichang,1)；
mxxVolume = 0 ；
end if
call Application.ActivateFrameWithCode("Technic",xinheyue,xinshichang,0)；
call
Technic.Refresh；
end if
end if
end sub
Sub to_0()

Set History = marketdata.GetHistoryData("IF88","ZJ",0)；
for i=0 to History.Count-1History
Volume(i) = 0；
next
call
History.SaveData("IF88","ZJ",1)；

End Sub

dim shanchushanchu = 0 ；

dim dangtianshuju ；

dim bili bili = 0.001 ；

dim xinheyuexinheyue = "IF88" ；

dim xinmingchengxinmingcheng = "IF等價K線"；

dim xinshichangxinshichang = "ZJ" ；

dim laoheyuelaoheyue = "IF00" ；

dim laoshichanglaoshichang = "ZJ"；

dim laozhishulaozhishu = "IF13" ；

Sub lishishuju() ；

cunzai = marketdata.IsExistStock(xinheyue,xinshichang)    ；

if cunzai = 0 then

call

marketdata.AddStock(xinheyue,xinshichang,xinmingcheng) ；

application.MsgOut ；

else

application.MsgOut；

end if



set

Report1 = marketdata.GetReportData(laoheyue,laoshichang) ；

qj = Report1.Open*bili   ；

if shanchu = 1

then

Set

History1 = marketdata.GetHistoryData(xinheyue,xinshichang,0)；

for j = 0 to History1.Count-1

History1.RemoveAt(j) ；

next

call

History1.InsertAt(0)      ；

History1.open(0) = Report1.Open    ；

History1.close(0) = Report1.Open       ；

History1.high(0) = Report1.Open       ；

History1.low(0) = Report1.Open      ；

History1.Date(0) = Report1.Date       ；

History1.Volume(0) = Report1.Volume      ；

History1.OpenInt(0) = Report1.OpenInt      ；

Call

History1.SaveData(xinheyue,xinshichang,1) ；

application.MsgOut ；"等價K線【歷史數(shù)據(jù)初始化】成功！"

end if

set

minutedata = marketdata.GetMinuteData(laoheyue,laoshichang) ；

Count = minutedata.Count    ；

for i = 1 to count-1

Set

History2 = marketdata.GetHistoryData(xinheyue,xinshichang,0) ；

mxopen = History2.open(History2.Count-1)；

mxclose = History2.close(History2.Count-1)；

mxhigh = History2.high(History2.Count-1)；

mxlow = History2.low(History2.Count-1)；

mxDate = History2.Date(History2.Count-1)；

mxVolume = History2.Volume(History2.Count-1)；

mxOpenInt = History2.OpenInt(History2.Count-1)；

close = minutedata.newprice(i)；

fbDate = minutedata.Date(i)；

Volume = minutedata.Volume(i)；

mxVolume = minutedata.Volume(i-1)；

OpenInt = minutedata.OpenInt(i)；

if close > mxhigh

then

mxhigh = close；

end if

if close < mxlow

then

mxlow = close；

end if

mxdate = fbDate；

mxxVolume = (Volume-mxVolume)+mxxVolume；

mxOpenInt = OpenInt ；

History2.close(History2.Count-1) = close；

History2.high(History2.Count-1) = mxhigh；

History2.low(History2.Count-1) = mxlow ；

History2.Date(History2.Count-1) = mxdate；

History2.Volume(History2.Count-1) = mxxVolume；

History2.OpenInt(History2.Count-1) = mxOpenInt；

call

History2.SaveData(xinheyue,xinshichang,1)；

if abs(close-mxopen) > qj

then

call

History2.InsertAt(History2.Count) ；

History2.open(History2.Count-1) = close；

History2.close(History2.Count-1) = close；

History2.high(History2.Count-1) = close ；

History2.low(History2.Count-1) = close ；

History2.Date(History2.Count-1) = mxdate；

History2.Volume(History2.Count-1) = 0；

History2.OpenInt(History2.Count-1) = OpenInt；

call

History2.SaveData(xinheyue,xinshichang,1)；

mxxVolume = 0 ；

end if

next

End Sub

sub dengjiaK()；

call

lishishuju()；

end sub

Sub APPLICATION_VBAStart()；

call

Application.SetTimer(0,1000)；

Sub APPLICATION_Timer(ID)；

if ID = 0

then

if (cdate(time)<=cdate("11:30:00") and cdate(time)>cdate("9:15:00")) or (cdate(time)<=cdate("15:15:00") and cdate(time)>cdate("13:00:00")) then           '等價區(qū)間處理

set

Report1 = marketdata.GetReportData(laoheyue,laoshichang)；

qj = Report1.Open*bili；

set

Report2； = marketdata.GetReportData(laozhishu,laoshichang)；

Set

History2 = marketdata.GetHistoryData(xinheyue,xinshichang,0)；

mxopen = History2.open(History2.Count-1)；

mxclose = History2.close(History2.Count-1)；

mxhigh = History2.high(History2.Count-1)；

mxlow = History2.low(History2.Count-1)；

mxDate = History2.Date(History2.Count-1)；

mxxVolume = History2.Volume(History2.Count-1)；

mxOpenInt = History2.OpenInt(History2.Count-1)；

set

minutedata = marketdata.GetMinuteData(laoheyue,laoshichang)；

Count = minutedata.Count ；

close = minutedata.newprice(Count-1)；

fbDate = minutedata.Date(Count-1)；

mxVolume = minutedata.Volume(Count-2)；

Volume = minutedata.Volume(Count-1)；

OpenInt = minutedata.OpenInt(Count-1)；

if close > mxhigh

then

mxhigh = close ；

end if

if close < mxlow

then

mxlow = close ；

end if

mxdate = fbDate ；

mxxVolume = mxxVolume+(Volume-mxVolume)；

mxOpenInt =OpenInt' ；

application.MsgOut mxxVolume&" "&Volume&" "&Volume-mxVolume

History2.close(History2.Count-1) = close；

History2.high(History2.Count-1) = mxhigh ；

History2.low(History2.Count-1) = mxlow ；

History2.Date(History2.Count-1) = mxdate；

History2.Volume(History2.Count-1) = mxxVolume；

History2.OpenInt(History2.Count-1) = mxOpenInt ；

call

History2.SaveData(xinheyue,xinshichang,1) ；

if abs(close-mxopen) > qj

then

call

History2.InsertAt(History2.Count) ；

History2.open(History2.Count-1) = close；

History2.close(History2.Count-1) = close ；

History2.high(History2.Count-1) = close ；

History2.low(History2.Count-1) = close   ；

History2.Date(History2.Count-1) = mxdate   ；

History2.Volume(History2.Count-1) = 0    ；

History2.OpenInt(History2.Count-1) = OpenInt ；

call

History2.SaveData(xinheyue,xinshichang,1)；

mxxVolume = 0 ；

end if

call Application.ActivateFrameWithCode("Technic",xinheyue,xinshichang,0)；

call

Technic.Refresh；

end if

end if

end sub

Sub to_0()

Set History = marketdata.GetHistoryData("IF88","ZJ",0)；

for i=0 to History.Count-1History

Volume(i) = 0；

next

call

History.SaveData("IF88","ZJ",1)；

End Sub
金字塔客服： http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=69458 5樓
用戶回復(fù)： 主要看哪一部分，我昨天都打印出來了
網(wǎng)友回復(fù)： 這幾天都在看，還是不知道怎么轉(zhuǎn)換

人人爽天天爽夜夜爽qc-人人爽天天爽夜夜爽曰-人人天天爱天天做天天摸-人人天天夜夜-色网站在线-色网站在线看

這個程序編譯的時候通不過,不知道怎么轉(zhuǎn)換,請教了