[Resolvido]Parcelas período de 365 dias

Pessoal.

Uso essa fórmula para calcular prestações mensais, ou seja, a partir de uma data as parcelas são calculadas de 30 em 30 dias.

Porém preciso calcular a partir de uma data períodos anuais. Como faço? Porém só preciso de datas, não valores.

Código período mensal.

Private Sub Comando3_Click()
On Error Resume Next
Dim str    As String
Dim i        As Byte
For i = 1 To Me!txtNParc.Value
   CurrentDb.Execute "INSERT INTO TabParc (NParc, DataVenc, Nome) VALUES (" & i & ",'" & DateAdd("m", i, Me!txtData) & "','" & Me!txtNomeSocio & "')"
Next i
Me.TimerInterval = 1200
MsgBox "Parcelas geradas por mês com sucesso!"
Me.TimerInterval = 0
End Sub

Boa tarde,
Basta adaptar para o período anual
CurrentDb.Execute "INSERT INTO TabParc (NParc, DataVenc, Nome) VALUES (" & i & ",'" & DateAdd("yyyy", i, Me!txtData) & "','" & Me!txtNomeSocio & "')"

Olá

Obrigado pela contribuição.

Resolvido