Trabalhando com data

Delphi

11/11/2004

Bom dia Pessoal

Preciso montar um codigo em que o sistema possa calcular a quantidade de dias que o usuario esta pagando com atraso, por exemplo

Data de vencimento: 29/10/2004
Data do Pagamento: 04/11/2004

[b:8899aabb82]Dias em atraso: 6 dias[/b:8899aabb82]


Preciso que o sistema aponte a quantidade de dias em atraso

No aguardo de um ajuda...


Wagner


Wagnermarrane

Wagnermarrane

Curtidas 0

Respostas

Delphi32

Delphi32

11/11/2004

Você pode usar a função DaysBetween. Veja um exemplo:

...
var Dias:Integer;
    DataPagamento,DataVencimento:TDate;
begin
   DataPagamento := StrToDate(´04/11/2004´);
   DataVencimento := StrToDate(´29/10/2004´);
   Dias := DaysBetween(DataPagamento,DataVencimento);
   ShowMessage(IntToStr(Dias));
end;



Qualquer dúvida poste aqui de novo. Até!


GOSTEI 0
Massuda

Massuda

11/11/2004

Use TDateTime mais ou menos dessa forma:

var
  Pagamento: TDateTime;
  Vencimento: TDateTime;
  Atraso: Integer;
begin
  Pagamento := {treco com a data de pagamento};
  Vencimento := {treco com a data de vencimento};

  Atraso := Trunc(Pagamento - Vencimento);
  if Atraso > 0 then {pagamento em atraso}


Espero ter ajudado,
Massuda


GOSTEI 0
POSTAR