funcion payment

[cmena]

Empezado por lokodelphi

bueno entonces lo q tu deseas es hallar R=p(1+i)^n

eso lo haces solo con variables y nada masalgo asi

Result := (APagar*(1+Interes)^Cant_Cuotas;
Result := (1000000*(1+0.05)^12;
el interes es en porcentaje como es el 5% lo pones asi 5/100=0.05

espero haberte ayudado

esto no funciona asi la expresion es otra, pero la idea es usar la funciones financieras de delphi, en el foro nadie entiende la pregunta si pido 100.000 al banco a 12 meses con un interes del 5% la cuota mensual deberia ser 10.745,
esto es lo que necesito
sigo en espera de ayuda
muchas gracias

[marcoszorrilla]

Esta es la función en D5:

Código Delphi [-]
function Payment(Rate: Extended; NPeriods: Integer; PresentValue, FutureValue:
  Extended; PaymentTime: TPaymentTime): Extended;
var
  Annuity, CompoundRN: Extended;
begin
  if Rate <= -1.0 then ArgError('Payment');
  Annuity := Annuity2(Rate, NPeriods, PaymentTime, CompoundRN);
  if CompoundRN > 1.0E16 then
    Payment := -PresentValue * Rate / (1 + Integer(PaymentTime) * Rate)
  else
    Payment := (-PresentValue * CompoundRN - FutureValue) / Annuity
end;

Un Saludo.