[firebase-br] Off - Re: Calculo de juros resultados diferentes

[Otto Fuchshuber]

E qual seria a fórmula?
Juros simples ou juros compostos? juros calculados no início do período ou
no fim?
se juros compostos, capitalização diária, mensal ou anual (ou instantânea)?
Por exemplo,  a fórmula da tabela price, dados
período n
taxa de juros expressa em por um (exemplo: 10% e representado por 0,1)
valor = 1,0
e significando ** a exponsenciação, també representada por ^ ou "elevado a"
juros calculados no fim do período (o usual)
temos:
parcela = (i * (1+i)**n)/((1+i)**n -1)
100+
Otto


----- Original Message ----- 
From: "Paulo Sérgo Feix" <paulinhofeix em gmail.com>
To: <lista em firebase.com.br>
Sent: Monday, March 05, 2007 7:12 PM
Subject: [firebase-br] Calculo de juros resultados diferentes


Boa Noite

Alguém sabe por que estes resultado dão diferente, num calculo de
juro, tipo eu tenho uma procedure que calcula o juros só que esta
procedure me devolve sempre menos juros que no delphi, e a principio a
formula é a mesma.
Exemplo Procedure no banco de dados:

For Select
a.FECHA2,Coalesce(a.DEBITO,0),Coalesce(a.SALDO,0),Coalesce(a.PAGO,0),
c.GRANO_TEXT
>From Cuentas_Clientes a
Inner Join Granos c on(a.Grano = c.COD_GRANOS)
Where a.ANULA = 1 and a.CLIENTE = :CLIENTE01 and
a.GRANO <> :GRANO01 and a.Saldo > 0 and
(a.Fecha Between :FECHA01 and :FECHA02) and
((a.EMPRESA = :EMPRESA01) or (:EMPRESA01 = 0)) and
((a.FILIAL = :FILIAL01) or (:FILIAL01 = 0))
Order by a.Fecha2, a.REC_CUENTAS_CLIENTES asc
Into :PFECHA2, :PDEBITO, :PSALDO, :PPAGO, :PGRANOS do
Begin
if (FECHA_BASE > PFECHA2 ) then
Begin
Juros_Diarios =0;  --Numeric(15,2)
Conta_Dias = 0;  --Integer
Juros_Diarios_por_Dia = 0; --Numeric(15,2)
TOTAL_JURO = 0;
Juros_Diarios = :TASA_JUROS / 30;
Conta_Dias = FECHA_BASE - PFECHA2;   --contas quantos dias já venceram
Juros_Diarios_por_Dia = ( Juros_Diarios *  Conta_Dias) * (PSALDO
/100);  ---Calcula a porcentagem Juro =  + :Juros_Diarios_por_Dia;
TOTAL_JURO = + :Juros_Diarios_por_Dia;
end
suspend;
end
------------------------------------------------------

Exemplo no delphi, esta da certa com o excel, calculadora, esta seria
o calculo certo.
Vlr_Juros:=0;  //----double
Conta_Dias:=0;  //----double
Juros_Diario:=0;  //----double
Juros_Diario_por_Dia:=0;  //----double
Juros_Diario:= IBOMonedaJURO.Value / 30;
//IBOListaProdutos.First;
//While Not (IBOListaProdutos.Eof) do
//Begin
If (DBDateEdit3.Date > IBOListaProdutosPFECHA2.Value)then
begin
Conta_Dias:=DBDateEdit3.Date - IBOListaProdutosPFECHA2.Value;
Juros_Diario_por_Dia:=((Juros_Diario * Conta_Dias) *
IBOListaProdutosPSALDO.Value /100);
Juro_Somar:= Juro_Somar + Juros_Diario_por_Dia;
end;

Paulinho....
Paulinhofeix em hotmail.com

______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa

Esta mensagem foi verificada pelo E-mail Protegido Terra.
Scan engine: McAfee VirusScan / Atualizado em 05/03/2007 / Versão:
5.1.00/4976
Proteja o seu e-mail Terra: http://mail.terra.com.br/