IF ELSE Y CASE EN VBA EXCEL

CALCULANDO LA EDAD DE UNA PERSONA


_________________________________________________________________________________
Private Sub CommandButton1_Click()


If Val(TextBox1.Text) >= 18 Then
  TextBox2.Text = " mayor"
Else
TextBox2.Text = "menor"

End If
End Sub






EJEMPLO DE IF ELSE EN VBA EXCEL
________________________________________________

Private Sub CommandButton1_Click()

If Val(TextBox1.Text) = 1 Then
  TextBox2.Text = " HOY ES DIA LUNES"
Else
If Val(TextBox1.Text) = 2 Then
  TextBox2.Text = " HOY ES DIA MARTES"
Else
  If Val(TextBox1.Text) = 3 Then
  TextBox2.Text = " HOY DIA MIRCOLES"
Else
  If Val(TextBox1.Text) = 4 Then
  TextBox2.Text = " HOY DIA JUEVES"
  Else
  If Val(TextBox1.Text) = 5 Then
  TextBox2.Text = " HOY DIA VIERNES"
  Else
  If Val(TextBox1.Text) = 6 Then
  TextBox2.Text = " HOY DIA SABADO"
    Else
  If Val(TextBox1.Text) = 7 Then
  TextBox2.Text = " DOMINGO"
    Else
  TextBox2.Text = " ESE NUMERO DE DIA NO EXISTE INTENTE CON OTRO"

End If
End If
End If
End If
End If
End If
End If
End Sub










EJEMPLO DEL CASE EN VAB EXCEL
_____________________________________________________________

Private Sub CommandButton1_Click()

Select Case TextBox1.Text
Case 1:
TextBox2.Text = " HOY ES DIA LUNES"
Case 2:
TextBox2.Text = " HOY ES DIA MARTES"
Case 3:
TextBox2.Text = " HOY ES DIA MIERCOLES"
Case 4:
 TextBox2.Text = "HOY ES DIA JUEVES"
Case 5:
 TextBox2.Text = " HOY ES DIA VIERNES"
Case 6:
 TextBox2.Text = " HOY ES DIA SABADO"
Case 7:
TextBox2.Text = " HOY ES DIA DOMINGO"
Case Else
TextBox2.Text = " ESE DIA NO EXISTE"
End Select
End Sub



________________________________________
realice el siguiente ejercicio utilizando la condicion if else
si la compra es mayor a Q400 aplicar el 5% de descuento =0.05
de lo contrario el descuento es cero el total final reste total menos descuento

HACER OTRO PROGRAMA QUE CALCULE LA EDAD DE UNA PERSONA Y NOS MUESTRE SI ES MAYOR O MENOR DE EDAD