Suma de fechas en un For con un DateTimePicker(los días son inconstantes)

[Edwardfeliz]

Saludos a todos, no se si escribi el titulo correctamente pero aqui va mi caso:

tengo un For que agrega una secuencia de fechas a un String Grid, utilizando un DTP hago lo siguiente:

For Lineas := 1 to cuotas +1 do
Begin
dtp.Date := dtp.date +30;
Cuadro.Cells[0,Lineas] := InttoStr(Lineas);
Cuadro.Cells[1,Lineas] := FormatDateTime('dd/mm/yyyy', dtp1.Date);
End;


(Solo anexe parte del código donde creo que es lo relevante)
Fecha de Hoy 14/08/2017
Pero el resultado que me aparece es:
13/09/2017
13/10/2017
12/11/2017
12/11/2017
Etc

que resultado espero?
14/09/2017
14/10/2017
14/11/2017

y fuera mucho mejor si me sumara otro dia porque la idea es que sea una fecha de vencimiento de la cuota.

Espero haberme explicado bien.
Gracias de antemano. ^\||/

[AgustinOrtu]

Existen funciones en la unidad System.DateUtils (http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.DateUtils) para trabajar con fechas, que te permiten sumar dias/meses/años. Por ej: IncDay (http://docwiki.embarcadero.com/Libraries/en/System.DateUtils.IncDay)

[Edwardfeliz]

Existen funciones en la unidad System.DateUtils (http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.DateUtils) para trabajar con fechas, que te permiten sumar dias/meses/años. Por ej: IncDay (http://docwiki.embarcadero.com/Libraries/en/System.DateUtils.IncDay)

Me da el mismo problema...

[AgustinOrtu]

Es mejor que postees el codigo. Parece que lo que buscas es incrementar de a un mes. Yo diria que utilices la funcion IncMonth

[Edwardfeliz]

Es mejor que postees el codigo. Parece que lo que buscas es incrementar de a un mes. Yo diria que utilices la funcion IncMonth

Con la función IncMonth resultó, Gracias... ^\||/

Que raro que Casimiro no apareció, siempre esta casando novatos :eek: :(

[Casimiro Notevi]

Que raro que Casimiro no apareció, siempre esta casando novatos :eek: :(¿Has hecho algo mal que yo no haya visto? :p

Además, yo no me dedico a "casar" a nadie ;)

[Edwardfeliz]

¿Has hecho algo mal que yo no haya visto? :p

Además, yo no me dedico a "casar" a nadie ;)

:D si si cazar ¬¬

ahora dime como se llama el Script que usas para que te avise cuando mencionan tu nombre en un post :rolleyes: :p

[Casimiro Notevi]

ahora dime como se llama el Script que usas para que te avise cuando mencionan tu nombre en un post :rolleyes: :pSe llama "El ojo que todo lo ve" :rolleyes:

[roman]

Que raro que Casimiro no apareció, siempre esta casando novatos :eek: :(

Sí. Aquí en el cuartel le llamamos "el Celestino".

LineComment Saludos

[Edwardfeliz]

Sí. Aquí en el cuartel le llamamos "el Celestino".
:eek: ;)

Se llama "El ojo que todo lo ve" :rolleyes:

Yo sabia que algo de iluminati había en ti :D :p :eek: