Instruccion case

Permite obtener condicionalmente valores específicos de varias comparaciones. Hay dos tipos de instrucciones CASE:

• Una instrucción CASE simple que compara una expresión con un conjunto de expresiones simples para devolver valores específicos.
• Una instrucción CASE buscada que evalúa un conjunto de expresiones booleanas para devolver valores específicos.

Sintaxis

  
Simple Case Statement  
CASE [input_expression]  
WHEN when_expression THEN when_true_result_expression  
[...n]  
[ELSE else_result_expression]  
END  
  
Search Case Statement  
CASE   
WHEN Boolean_expression THEN when_true_result_expression  
[...n]  
[ELSE else_result_expression]  
END  Veamos con un ejemplo esta sentencia muy sencillito. Lo primero que hace es solicitar un número y luego informa del día de la semana con el que corresponde. Si el número no es del uno al siete informa de ello también.


dim dia
dia = inputbox ("dime un dia de la semana")
SELECT CASE dia
CASE 1:
   msgbox("El dia es LUNES")
CASE 2:
   msgbox("El dia es MARTES")
CASE 3:
   msgbox("El dia es MIERCOLES")
CASE 4:
   msgbox("El dia es JUEVES")
CASE 5:
   msgbox("El dia es VIERNES")
CASE 6:
   msgbox("El dia es SABADO")
CASE 7:
   msgbox("El dia es DOMINGO")
CASE ELSE:
   msgbox("Tiene que ser un dia de la semana en número, del 1 al 7")
END SELECT