base de datos

PRACTICA 19
Private Sub Command1_Click()
Label8 = CInt((Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5)) / 4)
If Label8 > 19 And Label8 < 20 Then
Label10 = "A"
ElseIf Label8 > 16 And Label8 <18 Then
Label10 = "B"
ElseIf Label8 > 11 And Label8 < 15 Then
Label10 = "C"
ElseIf Label8 > 6 And Label8 < 10 Then
Label10 = "D"
Else
Label10 = "E"
End If
End Sub


Private SubCommand2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Label8 = ""
Label10 = ""
End Sub


Private Sub Command3_Click()
End
End Sub

PRACTICA 20
Manejo de operadores de manejo defechas y estructuras de selección


Objetivo: Emplea los operadores de fechas y las estructuras de control de selección mediante el desarrollo de aplicaciones que le permitan visualizar de maneraintegrada una fecha dada.
Elabora una aplicación que acepte fechas como tres números (dd, mm, aaaa) y las visualice del modo usual
Código Fuente:
Private Sub CmdAceptar_Click()
Dim CadMes AsString, Mes As Integer
Mes = Val(txtMes)
Rem Comando para seleccionar entre un rango de opciones y evitar el uso de IF anidado
Select Case Mes
Case 1: CadMes = "Enero"
Case 2: CadMes ="Febrero"
Case 3: CadMes = "Marzo"
Case 4: CadMes = "Abril"
Case 5: CadMes = "Mayo"
Case 6: CadMes = "Junio"
Case 7: CadMes = "Julio"
Case 8: CadMes = "Agosto"
Case 9: CadMes ="Setiembre"
Case 10: CadMes = "Octubre"
Case 11: CadMes = "Noviembre"
Case 12: CadMes = "Diciembre"
Case Else
MsgBox "Error de datos...", vbCritical, "Mensaje"
CallCmdLimpiar_Click
Exit Sub
End Select
lblFecha = txtDia & " de " & CadMes & " de " & txtAnno
End Sub


Private Sub CmdLimpiar_Click()
txtDia = ""
txtMes = ""
txtAnno = ""
txtDia.SetFocus
End SubPrivate Sub CmdSalir_Click()
If MsgBox("¿Desea terminar la aplicación?", vbQuestion + vbYesNo, "Pregunta") = vbYes Then
End
Else: Call CmdLimpiar_Click
End If
End Sub
PRACTICA 21...