本意是想用这个过程在ini文件中记录最高价,实际执行结果是最新价始终都满足大于取到的最高价,是不是没有定义变量类型的原因还是因为浮点变量不能比较大小。
Sub BuyStop()
'读取交易品种的动态行情数据
set Report1 = marketdata.GetReportData(UserForm1_TextBox1.text,UserForm1_TextBox2.text)
BuyHigh = Document.GetPrivateProfileFloat("trader", "buyprice", 0 , "d:\caodan.ini")
NewPrice = Report1.NewPrice
if NewPrice > BuyHigh then
call Document.WritePrivateProfileFloat("trader", "buyprice", NewPrice , "d:\caodan.ini")
end if
End Sub
还是一样,始终都满足条件。