主题：[求助]计算年月如何实现有一日就加一个月

参考代码

Dim d1 As Date = "2018-9-11"
Dim d2 As Date = "2011-10-10"
Dim y,m,d As Integer
DateYMD(d2, d1, y, m, d)
msgbox(y & " " & m & " " & d)
If d <> 0 Then
    m += 1
    d = 0
End If
If m = 12 Then
    y += 1
    m = 0
End If
msgbox(y & " " & m)