Fórum Calcular a diferença entre duas datas #197109

25/11/2003

0

Delphi

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

Responder

Post mais votado

26/11/2003

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


Fred

Fred
Responder

Gostei + 1

Mais Posts

25/11/2003

Marcelo.c 

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);



Responder

Gostei + 0

11/08/2015

Tiago Barbosa

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

Gostei + 0

11/08/2015

Mateus Ribeiro

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

Gostei + 1

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar