标题：[求助]sma函数在VBA中怎么写

sma函数在VBA中怎么写

不建议再VBA里自己写函数，实在需要请参考

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=2060&page=2

 

看到了，谢谢了。      

 'SMA(X,N,M)求X的N个周期内的移动平均。M为权重。
'计算方法：SMA(N)=SMA(N-1)*(N-M)/N+X(N)*M/N
'举例求rb01的日线收盘价的SMA
sub test()
    code="rb01"
    market="sq"
    mode=5
    set history=marketdata.GetHistoryData(code,market,mode)
    
    N=5
    M=2
    sma=0
    for i=0 to history.Count-1
        sma=(sma*(N-M)+history.Close(i)*M)/N
    next
    msgbox sma
end sub

太牛了。都是高手啊。呵呵