- 帖子
- 21
- 主題
- 8
- 精華
- 0
- 積分
- 35
- 點名
- 0
- 作業系統
- winXP
- 軟體版本
- 1.0
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-8-4
- 最後登錄
- 2018-3-8
|
[發問] 這問陣列的相加是否有其它的寫法有更快的執行速度
Function Cal_Avg_xDay(Date_I, xDay) As Double ' 計數月線/季線
ReDim xDay_Sum(xDay)
For j = 1 To xDay
xDay_Sum(j) = AR(3)(Date_I - j + 1, BT_Stock_I)
Next
Cal_Avg_xDay = WorksheetFunction.Round(WorksheetFunction.Average(xDay_Sum), 2)
End Function
我寫了一個 function, 用來計算股價的月線/季線。傳入值為當日日期的index，xDay為20or60。
請問有其它較簡潔的寫法以及更快的執行速度嗎，謝謝。 |
|
發表於 2014-3-2 15:53
| 
