como sumar Dias a una fecha

[esimon]

Muy buen dia para todo, espero que me disculpen se que hay mucho hilo con esta pregunta pero no pude adactar uno a lo que yo quiero hacer o necesito.

lo que quiero hacer es sumarle a un DateTimePicker el numero que digite en un Edit, sin que me tome los dias de fiesta. ej.

si hoy es lunes 28/07/2008 y en el Edti digito un 5 el DateTimePicker seria
04/08/2008, eso es lo que quiero.


mil gracias

[*Caro*]

Hola esimon, sería mas o menos así:

Código Delphi [-]
var
 cont : Integer;
 Fecha : TDateTime;
begin
 Fecha := Now;
 cont := 1;
 While cont<=StrToInt(Edit1.Text) do
  begin
   Fecha := IncDay(Fecha, 1);
   if (DayOfTheWeek(Fecha)<>6) and (DayOfTheWeek(Fecha)<>7) then
    inc(cont);
  end;
 DateTimePicker1.Date := Fecha;

DayOfTheWeek, nos devuelve el día de la semana.

Saluditos

[esimon]

mil gracias Caro, por la repuesta no dije que estoy usando delphi 7 y Accesse, otra cosa quien es IncDay y DayOfTheWeek porque me dice que no esta declarada.

[*Caro*]

Hola de nuevo esimon, tienes que aumentar en tu uses la unidad DateUtils, que es ahí donde estan esas dos funciones, IncDay, te incrementa la cantiadad de días que tu le indiques en tu caso 1 y DayOfTheWeek nos devuelve el día de la semana de la fecha que le pasas como parametro 6->sabado y 7->domingo.

Saluditos

[esimon]

mucha gracias caro, esta funcionando a la perfeccion

[esimon]

mucha gracias caro, esta haciendo lo que yo quiero, pero el DateTimePicker siempre me muestra la fecha actual si importar la modificacion del registro. te puedo hacer un ej. con la fecha del hoy, el DateTimePicker tiene fecha de 28/07/2008 si en el edit digito un numero 5, el DateTimePicker sera 04/07/2008, eso quiere decir que esta funcionando, grabo mi registro. pero si vuelvo al mismo registro el DateTimePicker es igual a 28/07/2008 cuando tiene que tener la fecha de 04/07/2008, puede decirme que esta pasando.

[[Delphius]]

Empezado por esimon

mucha gracias caro, esta haciendo lo que yo quiero, pero el DateTimePicker siempre me muestra la fecha actual si importar la modificacion del registro. te puedo hacer un ej. con la fecha del hoy, el DateTimePicker tiene fecha de 28/07/2008 si en el edit digito un numero 5, el DateTimePicker sera 04/07/2008, eso quiere decir que esta funcionando, grabo mi registro. pero si vuelvo al mismo registro el DateTimePicker es igual a 28/07/2008 cuando tiene que tener la fecha de 04/07/2008, puede decirme que esta pasando.

Hola esimon, sin saber que componentes estás usando y el modo en que lo estás empleando no sabríamos decirte a que se debe tu problema. ¿Podrías por favor darnos más detalles del asunto? Si es posible, una demostración del código.

Saludos,

[*Caro*]

Empezado por esimon

mucha gracias caro, esta haciendo lo que yo quiero, pero el DateTimePicker siempre me muestra la fecha actual si importar la modificacion del registro. te puedo hacer un ej. con la fecha del hoy, el DateTimePicker tiene fecha de 28/07/2008 si en el edit digito un numero 5, el DateTimePicker sera 04/07/2008, eso quiere decir que esta funcionando, grabo mi registro. pero si vuelvo al mismo registro el DateTimePicker es igual a 28/07/2008 cuando tiene que tener la fecha de 04/07/2008, puede decirme que esta pasando.

Hola esimon, sobre el codigo que te puse, esta tomando la fecha actual con Now, por lo que sería mejor que pases lo que tienes en tu DateTimePicker, que al parecer no siempre sera la fecha actual.

Código Delphi [-]
var
 cont : Integer;
 Fecha : TDateTime;
begin
  Fecha := DateTimePicker1.Date;
  cont := 1;
  While cont<=StrToInt(Edit1.Text) do
  .........
  .......

Ahora sobre tu problema, como te dice Marcelo, danos mas detalles para que te podamos ayudar y pon el codigo donde crees que este tu problema.

Saluditos