Sub cs()
tCode="PB00"
tMarket="SQ"
set HisData1= marketdata.GetHistoryDataByDate(tCode,tMarket,5,"2016/7/1","2016/7/7")
application.msgout " a1:" & HisData1.DATE(HisData1.COUNT-1) & " a2:" & HisData1.CLOSE(HisData1.COUNT-1)
marketdata.DestroyHistoryData
end sub
输出的是最后一根K线的数据!
此主题相关图片如下:1.png

此主题相关图片如下:2.png

因为http://www.weistock.com/bbs/dispbbs.asp?boardid=2&Id=135607的缘故,我用的是3.91版本
[此贴子已经被作者于2016-7-19 10:27:06编辑过]