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
