Problemas con fechas

[CFPA86]

Hola a todos y todas, mi problema radica en que no se o no recuerdo como resto dos fechas dadas con el fin de que el resultado me de el nro de dias.

Chauuuuuuuuuuuuuuuuu

[[jcarteagaf]]

Yo uso la resta normal:

dFecha1 : TDAteTime;
dFecha2 : TDateTime;


.....

dias := trunc(dFecha1 - dFecha2);

[mzell]

Hola CFPA86:
puedes usar la función DaysBetween que se encuentra en la unidad DateUtils (tienes que agregar DateUtils en la sección de uses de tu archivo .pas para poder tener acceso a esta función y muchas otras que te servirán para trabajar con fechas)

Aqui tienes un ejemplo que calcula el numero de dias entre dos fechas ingresadas en dos cajas de texto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 //Agrego 2 edits, un label y un botón en el formulario, y en el evento click del botón escribo:
  Label1.Caption := IntToStr(DaysBetween(StrToDate(Edit1.Text), StrToDate(Edit2.Text)));
end;

Espero te sea util.