Calcular juros

Question

Como Calculos juros entre duas datas (datainicio e DataFinal) com juro fixo de 1�, (Calcular juros di�rios)...

Dor_poa · Answer

var
VlrJuros, NumDias :Double;

NumDias := (Data1 -Data2);

if (NumDias > 0) and
(tbConfigTaxaCorrecao.asfloat > 0) then
begin
Jurdia := tbConfigTaxaCorrecao.asfloat/30 ;
Jurdia := Jurdia * NumDias ;
VlrJuros := (tbAluAtrasoDivida.asfloat *
(Jurdia/100)) ;

showmessage( FormatFloat(�#0.00�, VlrJuros)) ;
end ;