FoxPro/Visual FoxPro - fechas

Hola programadores pueden ayudarme hacer un cronograma de fechas teniendo en cuenta los meses que tengan 28 o 31 dias por ejemplo
fecha 26/08/2009
cuota 5
fecha 1----26/09/2009
fecha 2----26/10/2009
fecha 3----26/11/2009
fecha 4----26/12/2009
fecha 5----26/01/2010

Gracias de antemano

Hola Sebastian

Mira dentro de tu necesidad; esta faltando información necesaria para ayudarte:
1. si el plan de pago fuera el 28/09/2009
¿que pasaría al ser de 29 días?

Lo mismo para el caso de los 31 días. Eso no lo estas diciendo. Y es indispensable para poder darte una mano. Al menos de mi parte.

Pero te dejo un modo de averiguar lo que estas preguntando aqui. Espero que te ayude de algo.

store ctod("21/02/2009") to inicio
store mont(inicio) to mes

for i=1 to 31

if month(inicio+1)<>mes
store day(inicio) to dia_mes
exit
endif
store inicio+1 to inicio

next i

wait window "Mes de "+str(dia_mes)+" días" nowait