FoxPro/Visual FoxPro - cronograma

Hola programadores tengo este codigo que muestra cronograma de pagos pero no puedo terminar las fechas que debe de pagar que debe ser cada 30 dias si el prestamo es el 28/08, 29/09, 28/10, 28/11, 17/12 etc.... pueden ayudarme a terminar este procedimiento Gracias.

use CALCULAR
r=0.035
c=500
t=6
i=c*r
a= i / ((1+r)^(t)-1)
cuo=a+i
? cuo
?" It-Sald Cap - Amortiza- interes - cuota"
FOR it=1 TO t
a=cuo-i
c=c-a
? ALLTRIM(STR(it))+" "+alltrim(STR(c,12,2))+" "+ALLTRIM(STR(a,12,2))+" "+ALLTRIM(STR(i,12,2))+" " +ALLTRIM(STR(cuo,12,2))
append blank
replace item with it
replace saldo_cap with c
replace capital with a
replace interes with i
replace cuota with cuo
I=c*r
ENDFOR

Hola: toma la fecha del préstamo y sumale 30 .
Escribe lo siguiente antes del ciclo:

dFecha = dFechaPrestamo + 30

dentro del ciclo
REPLACE Fecha With dFecha

dentro del ciclo y al final del mismo

dFecha = dFecha + 30

O consulta la función GoMonth() que creo que sería más exacto.

Saludos.

Gracias amigo no se como trabajar con la funcion GoMonth() pero voy a intentarlo, esta funcion podra darme los mismo dias para todas las fechas. Gracias nuevamente