Problema al sumar días

[josejose]

Hola a todos

Estoy terminado una pantalla donde necesito hacer un incremento a la fecha que digite el usuario ejemplo tengo un campo entrada que es donde digito la fecha y un combobox que tiene 10 15 y 60 (Estos se refieren a días ) y tengo lo que es el campo fecha final lo que no se como hacer es que cuando el usuario digite la fecha y seleccioné la cantidad de días 10 o 15 en el campo fecha final aparezca la fecha con la cantidad de días sumados

Si me pueden oriental con algún código o algo
Estoy trabajando en delphi 7 y access 2003

Gracias

[Onti]

Puedes utilizar la función IncDay, que te permite sumar días a una fecha

[Bicho]

Hola una fecha de tipo date no deja de ser un Integer, al cual le puedes sumar días (un numero entero) y luego pasas eso a formato fecha y tendrás el resultado ya sumado.


//Suponiendo que en Edit2 el usuario teclea la fecha y en edit1 muestras el resultado
Edit1.text := FormatDateTime('dd/mm/yyyy', StrToDate(Edit2.Text) + StrToInt(Combobox1.Text));


Espero te sirva.

Saludos

[josejose]

Gracias Bicho


Gracias me funciono de todas manera me gustaría saber si alguien tiene un ejemplo del código utilizando incDay

Gracias

[Onti]

aquí tienes el código ejemplo:


NuevaFecha :=IncDay(FechaActual,15);



Por si acaso IncDay pertenece a la unidad DateUtils, por lo tanto: DateUtils debe estar declarado en tu sección uses. Tambien podrias colocar valores negativos para restas días a una fecha:


AnterioFecha :=IncDay(FechaActual,-15);

[Lepe]

otra forma más:

var c : datetime;
begin
c := now;
c:= c+ 15 ; // pues eso, sumamos quince días a la fecha de hoy;
end;


Saludos