DateTimePicke ' Fecha Pago saber Fecha vencimiento'
 

Saludos amigos, necesito una ayudita en lo que voy a plantear....

Tengo una base de datos en paradox, donde almaceno FechaPago, y Fechavencimiento, que corresponden al programa de un gimnasio, y esto me controla, cuando el cliente paga, y cuando se le vence....la duda es la siguiente es que capturo la Fecha de pago de la siguiente forma [hay que tener en cuenta que este codigo lo tengo en el evento OnChange de un DateTimePicker:

Código Delphi [-]
procedure TfrmPagosCliReg.dtppagoChange(Sender: TObject);
begin
dbedtfechapago.Text:= DateToStr(dtppago.date);
dbedtfechavenci.Text:=DateToStr(dtppago.Date+1);
end;

entonces cuando selecciono la fecha con el DateTimePicker, la paso inmediatamente a un DBEdit, pero lo que quiero hacer, es lo siguiente:

dd mm aaaa
Fecha pago : 08 06 2008


dd mm aaaa
Fecha vencimiento : 08 07 2008


Y si se pueden dar cuenta, el +1 en la fecha del DBEdit, era para ir sumandole un mes a la fecha que yo escogiera, pero le suma es al dia, y otra cosa que pense, es como hacer cuando pase lo siguiente:



dd mm aaaa
Fecha pago : 01 12 2008


dd mm aaaa
Fecha vencimiento : 01 01 2009


el problema aqui es que cuando la fecha de vencimiento, cambie de año, y el mes sea 01, por que si lo hago con el metodo que lo intente de hacer quedaria erroneo, ya que cuando llegue al mes le sumaria 1, pero entonces cuando este en el mes 12, me le va a sumar uno y quedaria en mes 13, en vez de quedar en mes 01 que es el correcto....


espero que me puedan colaborar, no se manipular bien, las operaciones con las fechas, y esto es nuevo para mi...muchas gracias a todos...

Prueba con la función IncMonth(). Así:

Código Delphi [-]
DBEdit1.Text := DateToStr(IncMonth(DateTimePicker1.Date));

Para que reconozca dicha función debes declarar en uses la Unidad o biblioteca DateUtils.

Saludos,

Huy gracias delphius, como siempre me salvas, jejeje, como nunca te veo conectado al msn....pero si me sirvio graciasss, la prgeunta es que si quiero sumarle dias, o solo años, como hago??? esta funcion suma de 1 en 1, o puedo cambiar esa propiedad por llamarlo asi....???

Hola BuRtOn,
No me ves a menudo en el MSN porque hago un esfuerzo en no engancharme demasiado en Internet. Ando buscando quitarme un poco el vicio, y tratar de ganar tiempo en mi proyecto, el cual debe estar listo para septiembre.
A pesar de que mi participación aqui ha disminuido, aun es muy alta... lo que provoca clubdelphi...:D

Bueno, IncMonth() es una función que en realidad su segundo parámetro es opcional. Si deseas llevar incrementos mayores a 1 debes simplemente ponerle otro:

Código Delphi [-]
algo := IncMonth(otra_cosa,2);

Saludos,

Ok entendido delphius, jejej si me imagino, yo estoy haciendo software para un gimnasio, es mi primera experiencia de vender algo asi, y lo estoy haciendo con un amigo, pero hice un hilo, de como hago el instalador, e incontre un manual sobre el InstallShield, pero esta el de delphi 6, y yo tengo el InstalShieldExpress del dephi 7.0, y cambian en algunas cosas, pero en ese cambio me queda mal el instalador, y pues otras personas me dijeron que utilizara el Inno Setup, pero la misma que nada, nunca en mi vida e hecho un instalador, y te envie un mensaje a tu msn, para ver si tu me aconsejas algo, o algun link....por que mira este fue el link que encontre:


http://www.casadelphi.com/articulos/...index.php?id=2


y pues hojala puedas ayudarme, es bueno contar con la opinion de ya casi un ingeniero, jejejee...yo aun sou pollito en esto..pero ahi voy, gracias delphius..

En el tema del uso de instaladores lamento no saber de que modo ayudarte...
En ese aspecto soy un ignorante todavía. Una vez, de prueba hice uno... y no se que terminé haciendo pero funcionó (al menos eso pareció en ese entonces).
Yo me digo "a eso, mejor lo dejo para cuando me toque. Mientras tanto, sigo con lo mio"

He leído alguno que otro hilo sobre el tema, pero al aire... hay hilos que tratan el tema. Sería cuestión de probar.

Por allí dicen que conviene mejor el Inno Setup.

Al MSN rara vez me encontrarás. Y aqui... no siempre. Vuelvo por estos lados cada 10 o 12 horas, en ocasiones tras 5, 8... no tengo un horario fijo, aparezco según el día, mis ganas... si necesito investigar algo, en fin... Recuerda que no estamos obligados a responder. El que ayuda lo hace en su tiempo libre y de forma altruista. No es buena idea que dependas de mi por estos meses...

Y por cierto, para preguntas por el MSN sobre temas que pueden tratarse aquí, pues mejor aquí ¿no crees? Ya sabes lo que dice la guia de estilo.

Saludos,