主题：[求助]根据年度月份分解财务费用

Dim d1 As Date = "2015-05-01"
Dim d2 As Date = "2017-04-30"
Dim cost As Double = 200000
Dim y,m,d As Integer
Dim mu As Integer  '---计算月数
Dim mm As Single     '每月的费用
DateYMD(d1,d2,y,m,d)
mu = 12*y + m + 1
mm = cost/mu

Dim count As Integer = 1
Dim sum As Double = 0
For i As Integer = 1 To mu
    Dim dd As Date = d1.AddMonths(i)
    If format(dd,"yyyyMM") = format(d2,"yyyyMM")
        output.show(dd & " " & cost-sum)
    ElseIf dd.Month = 12 Then
        output.show(dd & " " & mm * count)
        sum += mm*count
        count = 1
    Else
        count += 1
    End If
Next