VBA问题，有思路，但目前无法相互嵌套 ，求助坛友，蟹蟹。

holly5125

想用VBA实现在计息周期中计息金额变动的实时计息。（N个账户，每个账户在计息周期里有不确定的随时在变的计息金额）

我大概的思路构建如下：（混乱，请多多包函哇(┬＿┬)）

【日利率】=年利率/360=4.35%/360
【计息周期】=变动结束日-计息日+1(ps,这个是指每次变动金额的稳定结束日，内心OS：我也不造自己表达清楚了没，估计要参考着截图来）
【变动结束日】：
  如果交易日<=结息日，
        如果交易日<结息日，则变动结束日=交易日
        否则结束日=结息日
  否则循环结束结束。

X=｛各账户集合｝  逐一计算每个子集下的利息
X=[1]
X=[N]        


如果交易日>=起息日，        
    如果第一个交易日=起息日，
      则结息=计息金额*计息周期
    否则
      如果F归集金额=0
        则计息金额=头寸+G请款金额
        结息=计息金额*计息周期
      否则计息金额=头寸+F归集金额
          结息=计息金额*计息周期
否则跳下个。

大概总结下，就是在季度结息的前提下把A集团账户下的N个账户分别算出各自的结息，在加总看集团总的利息。
因为这池子里的账户头寸是变动的，所以计息金额是变动的，在一个周期里计息是根据变动的头寸持续的天数来分段计息最后加总。
我思路有点混乱，把想法汇总不起来，然后能力又有限（此处悔恨莫及哭唧唧），想VBA下，请顺路的大佬帮帮忙给点建议指导哇，非常感谢。




补充内容 (2019-6-10 09:31):
我重新整理了下，参考VBA小白书自己写了代码，运行提示缺少数组，麻烦大家帮忙指导一下，谢谢。

holly5125

Public Sub 实时计息()

Dim valuedate As Date          '定义日期起息日'
    valuedate = #3/21/2019#
Dim deadline As Date           '定义日期结息日'
    deadline = #6/20/2019#
Dim r As Double
    r = 0.0435
    dr = r / 360
   
Dim accuont As String                     '定义一个String文本，名称为account
    account = Range("B9:B838").Value       '将B9:B839中保存的数据储存到数组account中'
Dim tradate As Date                       '定义一个Date日期，名称为tradate
    tradate = Range("D9:D838").Value       '将D9:D839中保存的数据储存到数组tradate中'

Dim up As Currency
    up = Range("F9:F838").Value
Dim down As Currency
    down = Range("G9:G838").Value
Dim principle As Currency
    principle = Range("H9:H838").Value
Dim rsum As Currency
    rsum = Range("H9:H838").Value           '定义数组，等返回值'
Dim i As Variant

For Each i In account
  Do While account(i) = account(i + 1)
  
      If tradate(i) >= valuedate Then
        If i = 0 Then
           rperiod(0) = tradate(0) - valuedate + 1
           rsum(0) = dr * rperiod * (principle(0) - up(0) + down(0)) '求出起息日至第一次头寸变动期间的利息'
        ElseIf 0 < i < n Then
              rperiod(i) = tradate(i + 1) - tradate(i) + 1
              rsum(i) = dr * rperiod(i) * principle(i)
        ElseIf i = n Then
           rperiod(n) = desdline - tradate(n) + 1
           rsum(n) = dr * rperiod(n) * principle(n)
        End If
      End If
       i = i + 1

  Loop
Next i
End If



End Sub

holly5125

Public Sub 实时计息()

Dim valuedate As Date          '定义日期起息日'
    valuedate = #3/21/2019#
Dim deadline As Date           '定义日期结息日'
    deadline = #6/20/2019#
Dim r As Double
    r = 0.0435
    dr = r / 360
   
Dim accuont As String                     '定义一个String文本，名称为account
    account = Range("B9:B838").Value       '将B9:B839中保存的数据储存到数组account中'
Dim tradate As Date                       '定义一个Date日期，名称为tradate
    tradate = Range("D9:D838").Value       '将D9:D839中保存的数据储存到数组tradate中'

Dim up As Currency
    up = Range("F9:F838").Value
Dim down As Currency
    down = Range("G9:G838").Value
Dim principle As Currency
    principle = Range("H9:H838").Value
Dim rsum As Currency
    rsum = Range("H9:H838").Value           '定义数组，等返回值'
Dim i As Variant

For Each i In account
  Do While account(i) = account(i + 1)
  
      If tradate(i) >= valuedate Then
        If i = 0 Then
           rperiod(0) = tradate(0) - valuedate + 1
           rsum(0) = dr * rperiod * (principle(0) - up(0) + down(0)) '求出起息日至第一次头寸变动期间的利息'
        ElseIf 0 < i < n Then
              rperiod(i) = tradate(i + 1) - tradate(i) + 1
              rsum(i) = dr * rperiod(i) * principle(i)
        ElseIf i = n Then
           rperiod(n) = desdline - tradate(n) + 1
           rsum(n) = dr * rperiod(n) * principle(n)
        End If
      End If
       i = i + 1

  Loop
Next i
End If

End Sub

micch

没看懂说明，  变动理解不清楚