sumar semanas al la fecha actual

[[cHackAll]]

Empezado por UREÑA

...o si tengo errores para que me ayuden a mejorar mi codigo
gracias...

Como observación al post, usa la etiqueta DELPHI y no así SQL para enmarcar tu código pues así como está sin tabulacion no es muy comprensible.

Como observación al hilo en general; Now es una variable de tipo TDateTime = Doble, lo que significa que tiene una parte entera y una parte decimal... la parte ENTERA es la cantidad de días que pasaron desde 1900 (creo), entonces si a la parte entera le añades 7 estas sumandole una semana independientemente de la cantidad de días que tenga el mes en curso. Lo mismo con la parte decimal solo que ahora estamos hablando de milisegundos desde las 0 horas del día actual.

Con tales datos podríamos decir que la respuesta a tu hilo hubiese sido:

Código Delphi [-]
 En3Semanas := Now + 7*3;

Pruébalo ahora con 5 semanas:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
 Caption := DateToStr(Now) + ' / ' + DateToStr(Now + 7*5);
end;

Saludos.