Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-06-2008
Avatar de BuRtOn
BuRtOn BuRtOn is offline
Miembro
 
Registrado: ene 2008
Ubicación: Bucaramanga
Posts: 215
Poder: 17
BuRtOn Va por buen camino
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...
Responder Con Cita
  #2  
Antiguo 09-06-2008
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 25
Delphius Va camino a la fama
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,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
  #3  
Antiguo 09-06-2008
Avatar de BuRtOn
BuRtOn BuRtOn is offline
Miembro
 
Registrado: ene 2008
Ubicación: Bucaramanga
Posts: 215
Poder: 17
BuRtOn Va por buen camino
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....???
Responder Con Cita
  #4  
Antiguo 09-06-2008
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 25
Delphius Va camino a la fama
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...

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,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
  #5  
Antiguo 09-06-2008
Avatar de BuRtOn
BuRtOn BuRtOn is offline
Miembro
 
Registrado: ene 2008
Ubicación: Bucaramanga
Posts: 215
Poder: 17
BuRtOn Va por buen camino
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..
Responder Con Cita
  #6  
Antiguo 09-06-2008
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 25
Delphius Va camino a la fama
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,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Desde la fecha inicio hasta la fecha final que me grabe los meses contenidos Renis SQL 4 01-10-2007 18:21:44
Ayuda, Como calcular fecha de vencimiento mensual a partir de una fecha x en delphi Renis Impresión 4 24-08-2007 00:45:14
Calcular la fecha de vencimiento de una factura jjaen26 SQL 7 10-10-2006 22:33:01
Comparar una fecha de n campo date contra fecha actual amadis SQL 2 27-06-2005 22:37:41
Saber el día a raiz de una fecha Luana Varios 2 15-02-2005 01:05:53


La franja horaria es GMT +2. Ahora son las 07:45:31.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi