(Resolvido) Extrair total de dias entre duas datas

[robinhocne]

Como que eu faço para extrair o total de dias entre a minha data do TxtInicial.Text com a data do TxtFinal.Text

?

[Churc]

Opa

uses

DateUtils;

TotalDias := DaysBetween(StrtoDate(TxtInicial.Text), StrtoDate(TxtFinal.Text));

abraco

[robinhocne]

Opa

uses

DateUtils;

TotalDias := DaysBetween(StrtoDate(TxtInicial.Text), StrtoDate(TxtFinal.Text));

abraco

Churc! Valeu pela dica, mas não deu, deu erro de String an Integer, mas achei um na net e consegui adaptar:

procedure TFrmCheques.TxtPreExit(Sender: TObject);
var
  Dias : Single;
  DtIni, DtFin : TDateTime;
begin
  DtIni := StrToDate(TxtPre.Text);
  DtFin := StrToDate(TxtEmi.Text);
  Dias := DtIni - DtFin;
  TxtDia.Text := IntToStr(Trunc(Dias));
end;

Ok, Resolvido.

[Churc]

Opa

Hehe é que eu te dei somente um exemplo, voce não soube adaptar ao seu código :rolleyes:

abrcx