[firebase-br] Calculo de juros resultados diferentes

[Paulo Sérgo Feix]

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