- 金字塔客服中心 - 专业程序化交易软件提供商 (http://www.weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://www.weistock.com/bbs/list.asp?boardid=5)
---- 求一自编函数 (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=86271)
-- 发布时间：2015/10/16 13:17:24
-- 求一自编函数
求一个函数，输入价格，返回这个价位上我委托的挂单数量，多单空单区分，如何自编此函数
-- 发布时间：2015/10/16 13:30:13
--
dim temp
for i=0 to order.OrderNum2-1
call order.OrderInfo2(i, OrderID, ConSign, Filled, Remaining, Action, OrderType, LmtPrice, Account, Kaiping, Code, Market)
if LmtPrice = a then
temp = Remaining
end if
next
算法如上，自己通过自定义函数完善下
-- 发布时间：2015/10/16 13:46:31
--
测试返回是0
-- 发布时间：2015/10/16 13:50:02
--
不要用拿来主义，如果不能用，自己分析原因，自己尝试改进
-- 发布时间：2015/10/16 13:52:21
--
function ORDERNUM(a)
dim temp
for i=0 to order.OrderNum2-1
call order.OrderInfo2(i, OrderID, ConSign, Filled, Remaining, Action, OrderType, LmtPrice, Account, Kaiping, Code, Market)
if LmtPrice = a then
temp = Remaining
end if
next
ORDERNUM=temp
End Function
dim temp
for i=0 to order.OrderNum2-1
call order.OrderInfo2(i, OrderID, ConSign, Filled, Remaining, Action, OrderType, LmtPrice, Account, Kaiping, Code, Market)
if LmtPrice = a then
temp = Remaining
end if
next
ORDERNUM=temp
End Function
-- 发布时间：2015/10/16 13:52:34
--
问题处在哪里？
-- 发布时间：2015/10/16 14:21:14
--
vba要处于启动状态，另外请从函数列表-自定义函数，从这里右键添加自定义函数，系统会自动生成代码段的。
此主题相关图片如下：wf~thmua01mg3sgv6ktv6ns.png
-- 发布时间：2015/10/16 14:25:51
--
谢谢～
-- 发布时间：2015/10/16 16:44:09
--
还是返回不了，能不能麻烦把这个能返回的完整的自定义函数代码发一下？
-- 发布时间：2015/10/19 11:56:36
--
我们是新手，水平低，不够专业，我错了！真不该买你们2套专业版了，浪费了！