VBA 寫MACD　[金字塔]

用vba寫一個(gè)自定義函數(shù)，實(shí)現(xiàn)pel的MACD功能，不需要圖表顯示，只要調(diào)用，能夠返回參數(shù)就可以了。

非常遺憾，沒有把要求表達(dá)清楚。也就是說，我需要：

DIFF : =EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  : =EMA(DIFF,9);
MACD := 2*(DIFF-DEA);

這個(gè)指標(biāo)，如何用VBA語言來寫出來？ （因?yàn)镻EL語言有金字塔封裝好的EMA函數(shù)，VBA里面沒有）。我需要是用VBA語句，將MACD這個(gè)指標(biāo)公式表達(dá)成一個(gè)函數(shù)、可以供主程序調(diào)用，比如：

 public MACD,DIFF,DEA

 SUB MACDMAIN

     ……

     ……

     MACD = ????

     DIFF =???

     DEA =???

END SUB