VB6 Interes Lineal

[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.