|
Buenas noches :
He hecho un ejemplo bien sencillo con un botón de comando Calcular :
Dim Monto As Currency
Dim Interes As Currency
Private Sub Calcular_Click()
If Len(Txtmonto) = 0 Then
MsgBox "No ha insertado ningún valor de monto"
Txtmonto.SetFocus
Exit Sub
End If
Monto = CCur(Txtmonto)
Interes = Round((Monto * 0.15), 2)
Txtinteres = Format(Interes, "###,###,###.00")
End Sub
Private Sub Txtmonto_Change()
Select Case KeyAscii
Case 48 To 57 ' Permite los dígitos
Case 45 To 46 'Permite - y . (decimal)
Case 8 ' Permite el carácter de retroceso
Case Else
KeyAscii = 0
Beep
End Select
End Sub
Si quieres que haga el calculo al salir del campo de monto del prestamo entonces programas lo del botón Calcular en el evento Txtmonto.LostFocus
Suerte !
|
