[DOR]

Код:

function DaysBetween(Date1, Date2: TDateTime): Longint;

procedure TForm_Record.Button1Click(Sender: TObject);
var a:TDateTime;
begin
  a:=DaysBetween(form_record.DBDateEdit2,form_record.DBDateEdit3);
  form_record.Caption:=datetostr(a);
end;

function TForm_Record.DaysBetween(Date1, Date2: TDateTime): Longint;
begin
  DaysBetween:=Date1-Date2;
end;

Поправьте пжл.