calculo cuota a pagar

[juaneto]

Estoy haciendo una aplicación de créditos, pero cuando le doy calcular me sale el error "Compile error: Method o data member not found"

lo que he desarrollado hasta el momento es asi:

Private Sub cmdCalcular_Click(Index As Integer)
Dim cCantidad As Currency
Dim fTipoInt As Single
Dim nPlazo As Integer, cPago As Currency
'Almacenar la cantidad en la variable cCantidad
cCantidad = Val(txtCantidad.Text)

'Convertir tipo de interes en su equivalente decimal
'Ej. 12.75 se convierte en 0,1275
fTipoInt = Val(txtTipoInt.Text) / 100

'Convertir tipo de interes anual en mensual
'Dividiendo por 12 (meses en un año)
fTipoInt = fTipoInt / 12

'Convertir número de años en número de meses
'Multiplicando por 12 (meses en un año)
nPlazo = Val(txtPlazo.Text) * 12

'Calcular y mostrar el pago mensual
'la funcion Format hace que el número tenga buen aspecto
cPago = cCantidad * (fTipoInt / (1 - (1 + fTipoInt) ^ -nPlazo))
txtPago.Text = Format(cPago, "Fixed")

End Sub

Private Sub Salir_Click(Index As Integer)
End

End Sub


Gracias si me pueden ayudar a encontrar el error

[Avellaneda]

Hola, cuando te salte el error, verifica si la propiedad Nombre (Name) del control de la línea donde marca el error, coincide exactamente con lo puesto en el código.

p.e. es posible que el nombre del control sea "txtCntidad" y hayas escrito "txtCantidad" o el control sea un array que no hayas indicado.

[juaneto]

Private Sub cmdCalcular_Click(Index As Integer)
Dim cCantidad As Currency
Dim fTipoInt As Single
Dim nPlazo As Integer, cPago As Currency
'Almacenar la cantidad en la variable cCantidad
cCantidad = Val(txtCntidad.Text)

'Convertir tipo de interes en su equivalente decimal
'Ej. 12.75 se convierte en 0,1275
fTipoInt = Val(txtTipoInt.Text) / 100

'Convertir tipo de interes anual en mensual
'Dividiendo por 12 (meses en un año)
fTipoInt = fTipoInt / 12

'Convertir número de años en número de meses
'Multiplicando por 12 (meses en un año)
nPlazo = Val(txtPlazo.Text) * 12

'Calcular y mostrar el pago mensual
'la funcion Format hace que el número tenga buen aspecto
cPago = cCantidad * (fTipoInt / (1 - (1 + fTipoInt) ^ -nPlazo))
txtPago.Text = Format(cPago, "Fixed")

End Sub


Private Sub Salir_Click(Index As Integer)
End

End Sub

hice la corrección y me sale el mismo mensaje, me resalta en amarillo el primer comando:

Private Sub cmdCalcular_Click(Index As Integer)

y me resalta en azul el escrito:

.Text de: 'Almacenar la cantidad en la variable cCantidad
cCantidad = Val(txtCntidad.Text)

[David]

¿Tienes certeza que tienes un TextBox con el nombre de txtCntidad o txtCantidad que no sea una matriz de controles? Porque así como te comentó Avellaneda lo más probable es que ese sea el problema.

[Avellaneda]

Independientemente de lo anterior, VB tiene una función (Pmt) que
Devuelve un tipoDouble que indica el pago de una anualidad basada en pagos periódicos constantes con un tipo de interés también constante. (sic)

Todo ese código lo puedes poner en una sola línea así:

Pago = Format(Abs(-Pmt(TipoInteres / 12, NumMeses, Prestamo)), "Fixed")

[juaneto]

Ya solucione el problema era un contro array el que me estaba poniendo problema