FECHAMENTO POR MES

Citação:

:
Pessoal estou sem conseguir enxergar uma idéia para por exemplo:

Tenho um cadastro de bens, nele tenho os campos: VALOR DO BEM, DEPRECIAÇÃO ANUAL E DATA DE INCORPORAÇÃO. por exemplo tenho o seguintes dados:

VALOR DO BEM | DEPRECIAÇÃO ANUAL | DATA DE INCORPORAÇÃO
134,50 20% 01/01/2010

Por exemplo tenho que fazer os cálculos de depreciação por mês

Janeiro de 2010 foi de .... (A DIFERENÇA ENTRE A DATA DE INCORPORAÇÃO E O ÚLTIMO DIA DO MÊS)
Fevereiro de 2010...

Até o mês atual por exemplo sendo que só é feito no último dia de cada mês

Alguém teria alguma idéia

          Dim data1 As Date
        Dim data2 As Date 
        Dim valor As Decimal

        data1 = [Ô]2011-01-01[Ô]
        data2 = Now
        valor = 12458.12

        DateAddL(data1, 0)

        Do While data1 < data2
            valor = valor - (valor * 0.2)
            Debug.Print(CStr(data1) + [Ô] - [Ô] + FormatCurrency(valor))
            DateAddL(data1, 1)
        Loop

    Function DateAddL(ByRef d As Date, ByVal m As Integer) As Date
        d = DateAdd([Ô]D[Ô], m, d)

        Dim x As Date
        x = DateAdd([Ô]D[Ô], 1, d)

        Do While DatePart([Ô]M[Ô], x) = DatePart([Ô]M[Ô], d)
            d = x
            x = DateAdd([Ô]D[Ô], 1, x)
        Loop

        DateAddL = d

    End Function