Calcular juros
Como Calculos juros entre duas datas (datainicio e DataFinal) com juro fixo de 1¬, (Calcular juros diários)
Consorte
Curtidas 0
Respostas
Dor_poa
19/02/2003
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 ;
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 ;
GOSTEI 0