Programa de Tarjeta de credito
Publicado por mensaje de error (2 intervenciones) el 19/05/2015 22:10:44
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Private Sub CMDCALCULAR_Click()
Dim T_DESC As Double, T_COMPRA As DoubleDim t_pagar As Double, tasa As DoubleT_COMPRA = Val(TXTCOMPRA)
tasa = 0If OptCREDITO.Checked Thentasa = tasa + 0
End If
If OPTTARGETA.Checked ThenIf OPTVISA.Checked And optiva.Enabled Then
tasa = tasa + 0.11
End If
ElseIf OptMASTER.ckecked And OptMASTER.Enabled Then
tasa = tasa + 0.098
ElseIf OptAMEX.ckecked And OptAMEX.Enabled Then
tasa = tasa + 0.1253
End If
End If
If CHKEDAD.Checked = True Then
tasa = tasa + 0.15
End If
If CHKCP.Checked = True Then
tasa = tasa + 0.25
End If
T_DESC = T_COMPRA * tasa
t_pagar = t_compra_t_descTXTDESC = Str(Math.Round(t.Desc, 2))
TXTTOTAL = Str(Math.Round(t_pagar, 2))
End Sub
Private Sub Command2_Click()
TXTCOMPRA = ""
TXTDESC = ""
TXTTOTAL = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub OptCONTADO_Click()
HABILITAR
End Sub
Private Sub OptCREDITO_Click()
HABILITAR
End Sub
Private Sub OPTTARGETA_Click()
HABILITAR
End Sub
Private Sub HABILITAR()
OPTVISA.Enabled = False
OptMASTER.Enabled = False
OptAMEX.Enabled = False
Opt60.Enabled = False
Opt30.Enabled = False
Opt15.Enabled = False
If OptCREDITO.Checked ThenOpt60.Enabled = True
Opt30.Enabled = True
OPT.Enabled = True
End If
If OPTTARGETA.Checked ThenOPTVISA.Enabled = True
OptMASTER.Enabled = True
OptAMEX.Enabled = True
End If
End Sub
Valora esta pregunta
0
