Trabalhando com datas

Delphi

01/11/2004

Boa tarde pessoal,

Como posso calcular a mora diária, o sistema possui dois DbEdits e no banco o campo correpondente esta como DATE.

Então tenho a data de vencimento e a data de pagamento. Não estou conseguindo calcular a quantidade de dias de atraso para poder aplicar os juros.

No aguardo de um help

Wagner


Wagnermarrane

Wagnermarrane

Curtidas 0

Respostas

Rodolpho123

Rodolpho123

01/11/2004

Tente isto:

procedure Tfrm1.Button1Click(Sender: TObject);
var
dataini,datafim,dias: TDate;
begin
  dataini := StrToDate(´29/10/2004´);
  datafim := StrToDate(´01/11/2004´);
  dias := datafim - dataini;
  ShowMessage(FormatDateTime(´dd´,dias));
end;



GOSTEI 0
Gurc

Gurc

01/11/2004

Você também pode usar a função DaysBetween da unit DateUtils. Ela faz esse trabalho pra você.


GOSTEI 0
POSTAR