Restar dos fechas en delphi

[jeremiselxi]

Empezado por nlsgarcia

jeremiselxi,




Revisa este código:

Código Delphi [-]
...
uses DateUtils;
...
var
  fromdate, toDate : TDateTime;

begin
  // Set up our date variables
  fromDate := EncodeDateTime(2000, 02, 26, 10, 0, 0, 0);
  toDate   := EncodeDateTime(2000, 02, 29,  9, 0, 0, 0);

  // Display these dates and the days between them
  ShowMessage('From date = '+DateTimeToStr(fromDate));
  ShowMessage('To   date = '+DateTimeToStr(toDate));
  ShowMessage('Whole days difference = '+
              IntToStr(DaysBetween(toDate, fromDate))+' days');
end;
...

Tomado de DaysBetween

Revisa esta información:

Espero sea útil

Nelson.

Buenas noches Nelson.

En delphi 2009 me da error en el codigo "DaysBetween".

No se por que?

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
fromdate, toDate : TDateTime;

begin
 // Set up our date variables
  fromDate := EncodeDate(2000, 02, 26);
  toDate   := EncodeDate(2000, 02, 29);

  // Display these dates and the days between them
  ShowMessage('From date = '+DateTimeToStr(fromDate));
  ShowMessage('To   date = '+DateTimeToStr(toDate));
  ShowMessage('Whole days difference = '+  IntToStr(DaysBetween(toDate, fromDate))+' days');

end;

end.