Tema: Dudas con if
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/06/2011, 15:02
Avatar de Shizuka
Shizuka
 
Fecha de Ingreso: marzo-2011
Mensajes: 106
Antigüedad: 14 años
Puntos: 4
Dudas con if

Hola!! tengo un codigo que me ayuudarón a reducir, pero quisiera agregarle algunas especificaciones, por ejemplo que se puedan hacer pagos de inscripciones, pero al mismo tiempo que se pueda hacer un abono a esa inscripcion, empece agregandole algunas cosas pero no estoy muy segura de como voy , por favr si pueden darle un vistazo sería genial.

Yo hago referencia a unos text que estan en otro formulario,
pero bueno , les comento que las incripciones pueden ser
para maternal de 1300 para preescolar y primaria de 1500

Codigo para colegiaturas o inscripciones

Código:

Private Sub Command1_Click()
Dim ValBeca As Double
Dim opBeca As Double
Dim ins As Double
Dim insbeca As Double
ValBeca = 0.5
If Combo7.Text = "Colegiatura" Then
Mat = Form24.Text1.Text: Pre = Form24.Text2.Text: Pri = Form24.Text3.Text
If opBeca Then Mat = Form24.Text1.Text * ValBeca: Pre = Form24.Text2.Text * ValBeca: Pri = Form24.Text3.Text * ValBeca
Select Case Combo1.Text
   Case "Maternal":  miValor = Mat
   Case "Preescolar":  miValor = Pre
   Case "Primaria":  miValor = Pri
End Select
If Combo3.Text = "Quincenal" Then miValor = miValor / 2
If Combo3.Text = "Mensual" Then miValor = miValor
'If Combo3.Text = "Abono" Then miValor = Text7
If Combo5.Text = "25%" Then miValor = miValor - (miValor * 0.25)
If Combo5.Text = "50%" Then miValor = miValor - (miValor * 0.5)
If Combo5.Text = "No beca" Then miValor = miValor
If Combo6.Text = "10%" Then miValor = miValor + (miValor * 0.1)
Text7 = miValor
Else
If Combo7.Text = "Inscripción" Then
Insm = Form24.Text6.Text: Inspre = Form24.Text5.Text: Inspri = Form24.Text4.Text
If insbeca Then imat = Form24.Text6.Text * insbeca: Inspre = Form24.Text5.Text * insbeca: Inspri = Form24.Text4.Text * ins
Select Case Combo1.Text
   Case "Maternal":  miValor = Insm
   Case "Preescolar":  miValor = Inspre
   Case "Primaria":  miValor = Inspri
End Select
If Combo3.Text = "Quincenal" Then miValor = miValor / 2
If Combo3.Text = "Mensual" Then miValor = miValor
'If Combo3.Text = "Abono" Then miValor = Text7
If Combo5.Text = "25%" Then miValor = miValor - (miValor * 0.25)
If Combo5.Text = "50%" Then miValor = miValor - (miValor * 0.5)
If Combo5.Text = "No beca" Then miValor = miValor
If Combo6.Text = "10%" Then miValor = miValor + (miValor * 0.1)
Text7 = miValor
End If
End If
End Sub
Codigo para abonos

Código:
Private Sub Command2_Click()
Dim ValBeca As Double
Dim opBeca As Double
Dim Saldo As Double
ValBeca = 0.5
Mat = Form24.Text1.Text: Pre = Form24.Text2.Text: Pri = Form24.Text3.Text
If opBeca Then Mat = Form24.Text1.Text * ValBeca: Pre = Form24.Text2.Text * ValBeca: Pri = Form24.Text3.Text * ValBeca
Select Case Combo1.Text
   Case "Maternal":  miValor = Mat
   Case "Preescolar":  miValor = Pre
   Case "Primaria":  miValor = Pri
End Select
If Combo3.Text = "Quincenal" Then miValor = miValor / 2
If Combo3.Text = "Mensual" Then miValor = miValor
If Combo3.Text = "Abono" Then miValor = Text7
If Combo5.Text = "25%" Then miValor = miValor - (miValor * 0.25)
If Combo5.Text = "50%" Then miValor = miValor - (miValor * 0.5)
If Combo5.Text = "No beca" Then miValor = miValor
If Combo6.Text = "10%" Then miValor = miValor + (miValor * 0.1)
Text7 = miValor
Text3 = Text7 - Text1
End Sub


Gracias de antemano.
__________________
Will you please tell me the way to the sky?

Última edición por Shizuka; 21/06/2011 a las 15:17