Programación en Visual Basic 2008

If My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Friday Then
MsgBox("Today is Friday!")
Else
MsgBox("It isn't Friday yet!")
End If
En este ejemplo, se evalúa la expresión; si es true, se ejecuta la siguiente línea
de código y se muestra el primer cuadro de mensaje. Si es false, el código se
desplaza a la cláusula Else y se ejecuta la línea Else siguiente, que muestra el
segundo cuadro de mensaje.
Inténtelo
Para utilizar la cláusula Else
Cambie el código en la instrucción If...Then de la siguiente forma.
Visual Basic Express Copiar código
If My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Saturday Or _
My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Sunday Then
MsgBox("Happy Weekend!")
Else
MsgBox("Happy Weekday! Don't work too hard!")
End If
Presione F5 para ejecutar el programa. El programa mostrará ahora un cuadro
de mensaje que indica si es un fin de semana o un día de la semana, con
contenido adecuado.
Nota
Para cambiar el día de la semana haga doble clic en la hora en la barra de tareas de
Windows, si desea probar la ejecución de los dos bloques de código. (La barra de tareas es
la que contiene el botón Inicio de Windows; de manera predeterminada, se encuentra en
la parte inferior del escritorio y la hora se muestra en la esquina derecha).
Información detallada: utilizar Select Case para decidir entre varias
opciones
Everts Garay | Granada, Nicaragua| Paseo por Visual Basic 2008 51