自定义函数如何在逐K模式下返回公式中可以使用的数组,这回有代码,请管理员帮我看看 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

Function vba_HHV2(Formula, Number, ReturnValue)

'系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码

Dim History '日线数据对象

Dim Max_l '最低价中的最高价

Dim Min_l '最低价中最低价

Dim Max_l_Number '最低价中的最高价_所在的位置

Dim Min_l_Number '最低价中最低价_所在的位置

Dim Max_l_Day '最低价中的最高价_距离当前的天数

Dim Min_l_Day '最低价中最低价距_离当前的天数

Dim Temp_hl '中间变量

Dim Temp_sum '中间变量

Dim ll

Dim L_Arr

Dim k_tmp

vba_HHV2 = 0

If Number <= 10 Then Exit Function

'-===========================================

'-============初始化变量==================

Max_l = 0

Min_l = 0

Max_l_Number = 0

Min_l_Number = 0

Max_l_Day = 0

Min_l_Day = 0

'-===================================

Set History = Formula.ParentGrid.GetHistoryData() '获取日线数据对象

'-===========================

'取最后一天的收盘价

' Close = History.Close(History.Count-1)

'-=========================================

ReDim L_Arr(1)

ll = History.Low(Number)

'-=======下面涉及往前找最高价==================

If Number < 10 Then Exit Function

Max_l = History.Low(Number - 1)

Min_l = History.Low(Number - 1)

For i = Number - 1 To 0 Step -1

Temp_hl = History.Low(i)

p_Temp_hl = Temp_hl * 1.01

Temp_sum = Temp_sum + 1

If p_Temp_hl >= Max_l Then

If Temp_hl >= Max_l Then

Max_l = Temp_hl

Max_l_Day = Temp_sum

k_tmp = 0

Else

k_tmp = k_tmp + 1

End If

Else

k_tmp = k_tmp + 1

End If

If k_tmp > 3 Then Exit For

L_Arr(0) = Max_l

L_Arr(1) = Max_l_Day

vba_HHV2 = L_Arr '返回数组

ReturnValue = 8

End Function

'-====================公式代码========================

VARIABLE: PARR[2]=0;

po:=0;

PARR:=vba_HHV2(Number-1,po);

L_out3:PARR[1];

L_out4:PARR[2];

uy:po;

'-==========上面在公式中的输出均为零!!!!=================

请求管理员看看问题在哪?????????

[此贴子已经被作者于2014/8/30 18:48:14编辑过]

主题：自定义函数如何在逐K模式下返回公式中可以使用的数组,这回有代码,请管理员帮我看看