Fórum Problemas com cálculos de datas #323096

function Subtrair(editf,editi:String):String;
var
datai,dataf:TDateTime;
begin
result:=´Data Inválida´;
if TryStrToDate(editi,datai) then
    if TryStrToDate(editf,dataf) then
      begin
        if dataf >= datai Then
          result:=inttostr(trunc(dataf-datai))
        else
          result:=´A DataFinal tem que ser maior que a data Inicial)´;
      end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit3.Text:=Subtrair(edit1.Text,edit2.text);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
dateSeparator:=´/´;
LongdateFormat:=´dd/mm/yyyy´;
end;