Cd Med Adsadsada

Private Sub Cmbtarjeta_Click()
Select Case Cmbtarjeta.Text
Case "Mastercard"
Txttint = 8
Case "Dinner"
Txttint = 10
Case "Visa"
Txttint = 12
Case Else
Txttint = 14
End Select
End SubPrivate Sub Cmdcalcular_Click()
Dim subtotal As Double
If Cmbtarjeta = Empty Then
MsgBox "debe digitar tarjeta", vbInformation, "advertencia"
Cmbtarjeta.SetFocus
Exit Sub
End If
If Txtmonto =Empty Then
MsgBox "debe digiatar monto", vbInformation, "advertencia"
Txtmonto.SetFocus
Exit Sub
End If
If txtmeses = Empty Then
MsgBox "debe digitar meses", vbInformation, "advertencia"txtmeses.SetFocus
Exit Sub
End If
subtotal = CDbl(Txtmonto) * CDbl(Txttint) / 100
Select Case Cmbtarjeta.ListIndex
Case 0
Txtmneto = CDbl(Txtmonto) + subtotal
Case 1
Txtmneto = CDbl(Txtmonto) +subtotal
Case 2
Txtmneto = CDbl(Txtmonto) + subtotal
Case Else
Txtmneto = CDbl(Txtmneto) + subtotal
End Select
Txtcume = CDbl(Txtmneto) / 12
End Sub

Private Sub Cmdnuevo_Click()
Txtnum =Format(Val(Txtnum) + 1, "000")
dtfecha = Date
Cmbtarjeta.Text = "<<seleccione una tarjeta>>"
Txttint = Empty
Txtmonto = Empty
txtmeses = Empty
Txtmneto = Empty
Txtcume = EmptyCmdcalcular.Enabled = True
Txttint.SetFocus
End Sub

Private Sub Form_Load()
Cmbtarjeta.Text = "<<selecione una tarjeta>>"
Cmbtarjeta.AddItem "mastercard"
Cmbtarjeta.AddItem "dinner"Cmbtarjeta.AddItem "visa"
Cmbtarjeta.AddItem "american express"
End Sub

Private Sub txtmeses_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKeyBack, vbKeyReturn, vbKeyLeft, vbKeyRightCase Asc("0") To Asc("9")
Case Else
KeyAscii = 0
End Select
If KeyAscii = 13 Then
Cmdcalcular.SetFocus
End If
End Sub

Private Sub Txtmonto_KeyPress(KeyAscii As Integer)
Select CaseKeyAscii
Case vbKeyBack, vbKeyReturn, vbKeyLeft, vbKeyRight
Case Asc("0") To Asc("9")
Case Asc(".")
Case Else
KeyAscii = 0
End Select
If KeyAscii = 13 Then
txtmeses.SetFocus
End If
End Sub