Oi Fellipe Henrique

 Descolpa mais vou a escrever en espanhol.

  Yo hago lo siguiente  y nunca he tenido problemas en sumar  dias 
a  una fecha en lo referente al vencimiento de una nota por ejemplo.

 tengo  en el formulario un Tedit  en el que pudo colocar los dias 
que quiero  y TDateTimePicker en el que va  a quedar la fecha del 
dia   incrementada por los dias del Tedit o directamente la puede 
seleccionar en el TDateTimePicker  y  jamas me ha dado problema con 
los dias que incremento.

procedure TFventas.diasKeyPress(Sender: TObject; var Key: Char);
begin
     if Key = #13 then
       begin
        DateTimePicker1.Date:=date+StrToFloat(edit1.Text) ;
      end;
end;
  
espero te sirva 
Un abrazo



Responder a