Post 7 - Obtendo a quantidade de dias entre duas datas no Delphi

Para obter a quantidade de dias entre duas datas distintas é bem simples.
Para isso o Delphi disponibiliza uma função chamada DaysBetween();
Então vamos lá. Crie uma tela similar a que está abaixo:

O form contém:
3 Labels
3 Edits
1 Button

Dentro do botão insira o seguinte código:

var
  dtini, dtfim: TDateTime;
  qtd_dias: integer;
begin
  dtini := StrToDate(edt_ini.Text); //Pega o texto do edt_ini
  dtfim := StrToDate(edt_fim.Text); //Pega o texto do edt_fim

  qtd_dias := DaysBetween(dtini,dtfim); //Pega a diferença de dias existente entre as duas datas

  eqtd_dias.Text := IntToStr(qtd_dias); //Atribui a quantidade de Dias ao Edit (eqtd_dias)
end;

Veja o projeto funcionando:

Clique aqui para baixar o fonte
Pronto! Feito isso seu projeto estará funcionando direitinho.
Qualquer dúvida contatem-me por e-mail: wesleymenezzes@gmail.com
Obrigado e não esqueçam de curtir e compartilhar nossos posts. Deus abençoe.