Calcular a diferença entre duas datas

Delphi

25/11/2003

Ola pessoal preciso de uma forcinha hó.

eu tenho dois campos em minha tabela assim

vencimento d
atrazo n


eu queria calcular da seguinte maneira

o vencimento - a data atual e o resultado coloca-lo no campo atrazo
para que eu possa calcular juros e outras coisas.


Machado

Machado

Curtidas 0

Melhor post

Fred

Fred

26/11/2003

use a funcao
dias := DaysBetween(data1,data2)


GOSTEI 1

Mais Respostas

Marcelo.c

Marcelo.c

25/11/2003

var d, r: TDateTime; atraso: extended; valtot: currency;
begin
  d:=Date();
  r:=DM_Geral.CDSRecebData_Vencimento.Value;
  atraso:=d-r;
  v:=DM_Geral.CDSControleValor_da_mensalidade.AsCurrency;
  if atraso>0 then // se estiver atrasado
  begin
    m:=v*0.02; // aplica multa de 2¬
    j:=(m+v)*(e/1000); // Aplica juros de 0,1¬ ao dia (3¬ ao mês)
  end;
  valtot:=v+m+j; //Valor total
end;


Para exibir atraso em um Edit:

Edit1.Text:=currtostr(atraso);



GOSTEI 0
Tiago Barbosa

Tiago Barbosa

25/11/2003

Eu tenho usar a função DaysBetween mas fica em vermelhor, como se não fize-se referencia a função. uso delphi XE7
GOSTEI 0
Mateus Ribeiro

Mateus Ribeiro

25/11/2003

Eu tenho usar a função DaysBetween mas fica em vermelhor, como se não fize-se referencia a função. uso delphi XE7


Boa tarde!

Declare na uses a unit DateUtils

Deve resolver, boa sorte!
GOSTEI 1
POSTAR