递归问题

Question

'month = 9
'year = 2001Function a(month As Integer, year As String) As String
If year = "2000" And month = 1 Then
    a = year & "-" & month
Else
    If month = 1 Then '没有
        month = 12
        year = Trim(Str(Val(year) - 1))
        a = a(month, year)
    Else
        a = a(month - 1, year)
    End If
End If
End Function
'+++++++++++++++++++
'我把函数改动了一下，原来有不妥的地方，可：
'===============================
'答案为何不是2000-1,而是2000-9？
'========================================
'已经解决，上面是改动过的正确的函数