[VBA ] 固定日期判斷

[Nocp (呼嚕嚕)]

求助,找了好多資料可是找不到方法,懇請提點。
想要固定日期檢驗數值，日期為21的倍數，21、42、63...etc
我的j=1 to 1000 ,可是想檢驗 j=21,42...XDDD ,會很機車嗎

For j = 1 To Step

LnSt(i, j) = LnSt(i, j - 1) + (r - y - sig * sig / 2) * dt + sig * Sqr(dt)
* Application.NormSInv(Rnd) '風險中立下股價的Form

St(i, j) = Exp(LnSt(i, j))

Crossed = False '出場價參數設定,如為Ture表示股價不用再模擬


   If (St(i, j) = StopP) Then  =>請問此處該如何設定固定21天檢視St(i,j)=StopP

   也就是21,42,63...以此類推

   Crossed = Ture

   Exit For '如果條件成立，跳出 For迴圈

End If

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 58.114.178.32
※ 文章網址: http://www.ptt.cc/bbs/Visual_Basic/M.1403618629.A.99C.html
→ MOONRAKER:查一下mod的用法
推 lsmking7219:mod / \ 三種使用方法可參考看看 很好用的