sumar semanas al la fecha actual

[UREÑA]

hola amigos buen dia!!!

tengo un problema

tengo un catalogo de materias y cada una tiene un campo que se llama semanas dependiendo del valor del campo de semanas es la duracion de la materia

como poder sumar las semanas a la fecha actual??
la verdad no se me ocurre algo por no todos los meses traen los mismos dias

gracias por su atencion

[[maeyanes]]

Desde Delphi puedes hacer algo como esto:

Código Delphi [-]
uses DateUtils;

begin
  //Incrementamos 5 semanas a la fecha actual...
  FechaMasNSemanas := IncWeek(Now, 5)
end;

Saludos...

[UREÑA]

gracias maeyanes

deja lo checo y te aviso

[UREÑA]

hola maeyanes me marca un error

esto lo puse en uses hasta arriba de mi codigo
DateUtils

me dice que no funciona el archivo DateUtils.dcu
estoy usando delphi 5 y firebird

[[maeyanes]]

Uh!!

Es por eso que es buena idea siempre especificar que versión de Delphi usas cuando haces tus preguntas...

Esto que te mencioné funciona en las versiones de Delphi 6 en adelante... para tu mala suerte, en Delphi 5 la unidad DateUtils no existe...

Habrá que buscar otra solución a tu problema...

Checa aquí a ver si encuentras algo que te sirva: http://delphi.newswhat.com/geoxml/fo...ps.borland.com

[UREÑA]

hola amigos despues de un buen rato ya solucuione mi problema por si alguien le sirve de algo!!

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

Código SQL [-]
var     //CALCULA LA CANTIDAD DE DIAS DEL MES ACTUAL
   PrimerDiaMes, PrimerDiaMesSiguiente   : TDateTime;
   anyo, mes, dia: Word;
   fechasistema, dias, resulta, restodias, id_periodo, resulta2: String;
   e, a, c, calcula, fechafinal : integer;
begin      //cantidad de dias que dura la materia
   calcula := frm_DataModule.qry_este.Fields[1].AsInteger;
   calcula := calcula * 7;
   Edit1.Text := DateTimeToText(date);
   DecodeDate( date, anyo, mes, dia );
   primerDiaMes := EncodeDate(anyo, mes, 1);
   primerDiaMesSiguiente := IncMonth(primerDiaMes, 1);
   for e := 0 to 31 do
   begin
   primerDiaMes := primerDiaMes + 1;
   if PrimerDiaMes = PrimerDiaMesSiguiente then
   begin
   a := 1;
   a := a + e;
   fechasistema := DateTimeToStr(date); //toma el dia del sistema
   dias := copy(fechasistema, 1,2);
   restodias := copy(fechasistema, 3, 10);
   //suma dias a fecha actual
   c := StrToInt(dias) + calcula;
   end;
   end;
   if c <= a then   //si la duracion de la materia no supera la fecha de fin del mes
   begin
   fechafinal := calcula + StrToInt(dias);
   resulta2 := DateToStr(PrimerDiaMes);
   Delete(resulta2, 1, 2);
   Edit2.Text := IntToStr(fechafinal) + resulta2;
   id_periodo := edit1.Text +'-'+ Edit2.Text;
   edit3.Text :=  id_periodo;
   end
   else
   begin
   c := a - StrToInt(dias);  //si la duracion de la materia abarca hasta el siguinete mes
   fechafinal := calcula - c;
   resulta := DateToStr(PrimerDiaMesSiguiente);
   delete(resulta,1,2);
   Edit2.Text := IntToStr(fechafinal) + resulta;
   id_periodo := edit1.Text +'-'+ Edit2.Text;
   edit3.Text :=  id_periodo;

   end;

calcula la cantidad de dias del mes en curso y asigna la fecha de fin de una materia dependiendo de la duracion


muchas gracias a todos pero en especial a maeyanes