[VBA ] 怎麼跑出來是%要怎麼改變設定
我要跑出來的是隨機股價
可是跑出來的單位卻是%
Public Function stock(s, u, sg, t, n)
Dim st()
ReDim st(n)
st(0) = s
dt = t / n
temp1 = 0
For j = 1 To n
randn = Application.WorksheetFunction.NormInv(Rnd, 0, 1)
st(j) = st(j - 1) * (u * dt + sg * Sqr(dt) * randn)
temp1 = temp1 + st(j)
Next
stock = s + (s * temp1)
End Function
s表示期初股價
u表示股價的預期報酬
sg表示報酬的標準差
t表示在某時間區間的股價變動
n表示其有幾期
我要如何修改才會跑出股價而不是幾趴幾趴?
謝謝回答^^
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.171.85.156