VB6 Interes Lineal

[gepd]

Estimados amigos de ForosDelWeb, estoy haciendo un sistema de pagos de letras para un local comercial pero tengo una duda ya que en VB no manejo todas sus funciones, el asunto es que necesito agregar un Interés denominado "Interés lineal" Valga la redundancia, éste interés escrito matemáticamente seria de la siguiente forma

VF = Monto (1 +porcentaje)^N° Días

En donde:

VF= Interés final que habrá que agregarle a la cuenta
MONTO= el monto al cual se le quiere agregar el interes
1=Valor que se le debe agregar a la operacion no se por qué pero me lo explicaron así.
PORCENTAJE=valor en porcentaje del interes que se le quiere agregar al monto
N°DIAS=Número de días que se agrega el interes
Ejemplo

Yo presto 5.000 Pesos (sea de la moneda que sea ) y yo voy a cobrar el 0.5 % de interés diario y la plata me la van a devolver en 5 días más entonces para yo saber lo que me deben devolver tendría que hacer la siguiente operación matemática

VF = 5000 (1 + 0.5)^5

Alguien me podría ayudar a hacer ésta operación en VB6

Desde ya Gracias

[seba123neo]

Hola, y bueno ya la tenes hecha ahi, te podes hacer una funcion y pasarle como parametros esos valores...algo muy pero muy rapido para que te des cuenta...despues arreglala vos...

Código vb:

Private Sub Form_Load()
    MsgBox Interes(5000, 0.5, 5)
End Sub
 
Private Function Interes(ByVal Monto As Long, Porcentaje As Double, ByVal Dias As Integer) As Long
    Interes = Monto * (1 + Porcentaje) ^ Dias
End Function
 

saludos.

[gepd]

Muchas Gracias
aunque aún no puedo conseguir el resultado que quiero, la respuesta es válida :)

si hay alguien que sepa algo al respecto del interés lineal por favor comentar

gracias y saludos!