作者nicke (.........)
看板Visual_Basic
标题[VBA ] 怎麽跑出来是%要怎麽改变设定
时间Tue Mar 10 16:20:24 2009
我要跑出来的是随机股价
可是跑出来的单位却是%
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