como sumar Dias a una fecha - Foros Club Delphi

28-07-2008

*Caro*

Moderadora

Registrado: jul 2004

Ubicación: Cochabamba, Bolivia

Posts: 2.544

Poder: 24

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

__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.

« Tema Anterior | Próximo Tema »

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
sumar dias a fecha actual	MOCOSO07	Varios	7	15-06-2008 18:53:23
sumar dias una fecha dada	Goyo	Varios	3	25-05-2007 02:23:39
Sumar dias a una fecha inicial en delphi	bellota	Varios	4	06-06-2006 16:42:40
SUmar dias a una fecha	raffagia	Varios	1	04-10-2004 18:28:13
Sumar Dias a una fecha?	danytorres	SQL	1	16-01-2004 05:04:15

La franja horaria es GMT +2. Ahora son las 00:10:53.