como sumar Dias a una fecha

[*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

[esimon]

mucha gracias Caro y Delphius, por dedicarme parte de tu apreciado tiempo.

Estoy haciendo un sistema para supervisar establecimientos, pero dentro de esa supervision a un establecimiento X, le puedo dar un plazo de 1o dias laborables para hacerle una numeva supervision para que corrijar algunos problemas que se encontraron en dicho establecimiento, claro estoy 10 dias son laborable, sin incluir los dias feriados, sabado ni domingos.

para que el sistema haga esa parte automaticamente, uso un Edtit en el cual digito la cantidad de dias y un DeteTimePicke, para que me muestre la fecha que le toma la supervision a dicho establecimiento y estoy usando el codigo que me envio caro.

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;

Con este codigo cuando yo le digo a un establecimeinto que tienex dia para la proxima inspeccion en el DateTimePicke me hace el calculo y me lo graba en la tabla, pero si entro a ese establecimiento el DateTimePicke me presenta la fecha actual y no la que le correposnde con el plazo establecido.

[[Delphius]]

Hola esimon,
Yo no veo problema en el cálculo de los días. Es posible que el problema lo tengas al insertar los datos. Por favor, ¿Podrías mostrarnos el código que empleas para guardar? ¿Que componentes de acceso a base a datos usas?¿Motor?

Saludos,