Trabalhando com data

Question

Bom dia PessoalPreciso montar um codigo em que o sistema possa calcular a quantidade de dias que o usuario esta pagando com atraso, por exemploData de vencimento: 29/10/2004Data do Pagamento: 04/11/20...

Delphi32 · Answer

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�!

Massuda · Answer

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

F�rum Trabalhando com data #257967