Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); Var MiFecha:Tdate; begin MiFecha:=Date; MiFecha:=MiFecha + 7; ShowMessage(DateToStr(MiFecha)); end;
procedure TForm1.Button1Click(Sender: TObject); Var MiFecha:Tdate; begin MiFecha:=Date; MiFecha:=MiFecha + 7; ShowMessage(DateToStr(MiFecha)); end;