[Resolvido] Calcular juros por dia

[Geovane Velmer 0]

Galera é o seguinte..

 

Tenho uma taxa de juros a ser cobrada por dia que passar apos o vencimente de uma conta

e eu não sei como fazer para saber quantos dias de atraso foram

eu tenho na tabela Conta a Receber o dia do vencimento e temos como pegar o dia atual

 

Ex: a conta vence em 10/07/2009

 

e o cliente deixou atrasar 2 meses ou 2 anos..

 

Como calcular via programação os dias de atraso?

[quintelab 91]

Tente desta forma:

 

Data := DataAtual - DataVenc;
DecodeDate( Data, ano, mes, dia);
Result := FloatToStr(Data)+' Dias';

Abraços...

[Geovane Velmer 0]

Tente desta forma:

 

Data := DataAtual - DataVenc;
DecodeDate( Data, ano, mes, dia);
Result := FloatToStr(Data)+' Dias';

Abraços...

 

Eu fiz nesse fds uma função assim ..

 

//Conta dias
function Dias(Data : TDate) : String;
begin
if FloatToStr(Date) >=  FloatToStr(Data) then
  begin
  Result := FloatToStr(Date - Data);
  end else
      begin
      Result := '0';
      end;
end;

mas para que serve o "DecodeDate( Data, ano, mes, dia);" ?

[Hugo Slepicka 0]

Bom dia...

 

DecodeDate serve para quebrar uma variável Date em 3 variáveis do tipo WORD... Ano, Mês e Dia... assim você não precisa ficar fazendo Copy para pegar os valores que quer...

 

Como descrito na documentação do Help do Delphi:

Description The DecodeDate procedure breaks the value specified as the Date parameter into Year, Month, and Day values. If the given TDateTime value has a negative (BC) year, the year, month, and day return parameters are all set to zero.

 

 

Com relação a funções para trabalhar com datas muitas coisas interessantes podem ser encontradas na Unit DateUtils... adicione-a ao uses de seu projeto e conseguirá muitas funções uteis.

 

Abraço.