|
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.
|