quinta-feira, 14 de novembro de 2013

Exibir Quantidade de Dias em uma Subtração de Datas em Delphi 7

Uma dica para os desenvolvedores, que assim como eu, também já tiveram essa dificuldade pela frente. Num módulo do sistema da minha empresa, necessitava exibir para um dono de concessionária quantos dias determinada Ordem de Serviço de um cliente estava aberta no sistema.

A solução para isto é a seguinte:


  • criar uma variável do tipo Extended:
 var  
  diasAtraso : Extended;  

  • alimentar esta variável com a subtração de datas que interessa ao negócio:
  diasAtraso := Date - QryPadraoDATA.AsDateTIME;  

  • finalmente exibe-se a quantidade de dias entre as 2 datas:
  ShowMessage(FloatToStr(Abs(diasAtraso)) + ' dias');


Conclusões

Notamos neste artigo a facilidade em calcular a quantidade de dias
entre 2 datas e exibir o resultado, utilizando a ferramente Delphi 7.
Forte abraço e até o próximo tutorial.

--