Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:=DateToStr(Date); Edit2.Text:=DateTostr(Date + 10); Edit3.Text:=FormatFloat(',0',(StrToDate(Edit2.Text) - StrToDate(Edit1.Text) )); end;
procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:=DateToStr(Date); Edit2.Text:=DateTostr(Date + 10); Edit3.Text:=FormatFloat(',0',(StrToDate(Edit2.Text) - StrToDate(Edit1.Text) )); end;