Aumentar la fecha

[cmgenny]

Holas

En mi sistema el usuario decide los dia que le dara de credito a el comprador, digamos 15 dias de credito, con este numero y la fecha actual yo hago un algoritmo larguisimo para sumar estos 15 dias y mostrar en la factura la fecha de vencimiento.

La pregunta es, existe otra forma de hacer esto menos trabajoso, es decir, no tener que hacer este algoritmo tan largo para solo esta opcion, no habra algo como decir 15 + fecha actual = la fecha adelantada 15 dias. Yo creo que la forma que utilizo es mecanica y agradeceria muchisimo que me ayudaras.

Gracias por las atenciones que siempre me han brindado.

[marcoszorrilla]

procedure TForm1.Button1Click(Sender: TObject);
var
Hoy:Tdate;
begin
Hoy:=Date;
Hoy:=Hoy+StrToInt(Edit1.Text);
ShowMessage(DateToStr(hoy));
end;


Si a una fecha le sumas un número entero, obtendrás dicha fecha aumentada en el número de días especificado.

Si bien lo mejor sería que en la ficha del cliente figurase el crédito que tiene, es decir en la tabla clientes se incluiría un campo llamado vencimiento, si ponemos 30 querrá decir 30 días.

Al hacer una factura automáticamente se sumaría el vencimiento del cliente a la fecha de la factura, como la fecha sería un campo de tipo fecha y el vencimiento un entero, no habría que hacer ninguna transformación.

Un Saludo.