[發問] 週KD計算

nexus

請教各位大大:

小弟想用VBA寫一個程式來計算股票的日、週、月KD,日KD的部份我是抓前9天的資料,算出來的結果和股票網站所提供的差不多。
但週和月KD卻差異頗大,實在困擾小弟。週KD我是以前九週的最高價和最低價來算,例如今天是2015/10/26, 前九週就是從2015/8/23開始到今天為止, 再代入KD公式計算,不知我這樣子的認知有沒有錯誤?程式碼如下:

RSV = (CurPrice - MinPrice) / (MaxPrice - MinPrice + 0.000001) * 100
WeekK = RSV / 3 + PreK * 2 / 3
WeekD = WeekK / 3 + PreD * 2 / 3

其中MinPrice和MaxPrice就是2015/8/23~2015/10/26間之最低價和最高價, CurPrice是今天的收盤價, PreK和PreD是前一交易日(2015/10/23)的週KD值。還請神人們給予指導, 感謝。