作者gohiei (真是無聊的...)
看板Visual_Basic
標題Re: [VBA ] 請問VBA可以引用函數到迴圈中嗎?
時間Sat Sep 16 23:10:33 2006
: : Public Sub a()
: : For i = 1 To path
: sT = simulation_stock(s, r, sigma, t)
: : c_payoff = Application.Max(sT - k, 0)
: : p_payoff = Application.Max(k - sT, 0)
: : sum_c = sum_c + c_payoff
: : sum_p = sum_p + p_payoff
: : Next i
: : End Sub
: : Public Function simulation_stock(s As Double, r As Double, sigma As Double,
: : t As Double) As Double
: : Dim j As Integer
: : Dim a, a1, sT As Double
: : a1 = 0
: : For j = 1 To 12
: : a1 = a1 + Rnd
: : Next j
: : a = a1 - 6
: : sT = s * Exp((r - sigma ^ 2 / 2) * t + sigma * Sqr(t) * a)
: : simulation_stock = sT
: : End Function
: : 為何VBA會給我錯誤的訊息(如下)~~
: : 編譯錯誤:
: : ByRef 引數型態不符
^^^^^^^^^^^^^^^^^^
或許你應該檢查看看 function a() 中
呼叫 simulation_stock 函數時，它的參數型態對嗎？
s 是 double 嗎？
r double
sigma double
t double
還有回傳值，
function simulation_stock 回傳值是 double，
sT = simulation_stock(s, r, sigma, t) 中，
sT 型態是 double 嗎？
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.129.50.226
1F：推 cilo:我就是都檢查過了~~但是它還是說錯~~我才無能為力阿!!>"< 09/16 23:38