No tienes acceso a esta clase

隆Contin煤a aprendiendo! 脷nete y comienza a potenciar tu carrera

Select Case

12/17
Recursos

Aportes 134

Preguntas 8

Ordenar por:

驴Quieres ver m谩s aportes, preguntas y respuestas de la comunidad?

un caso para el cual te respondo automaticamente si salimos o no de fiesta (jaajjaa)

' prueba si es mayor de edad y puede salir a tomar
Public Function edad() As Integer
    
    Dim nacimiento As Integer
    Dim a
    Dim b
    Dim a帽o As Integer
    Dim tomar
    a帽o = InputBox("ingrese el a帽o de nacimiento", "A帽o de nacimiento")
    nacimiento = 2022 - a帽o
    a = MsgBox("tu edad es de " & nacimiento, , "edad")
    Select Case nacimiento
        Case Is >= 19
            tomar = " a tomar"
        Case Else
            tomar = " no puedes tomar"
    End Select
    b = MsgBox("si deseas pero" & tomar, , "salimos")
    
End Function

Es buena a explicaci贸n, pero no me queda claro como se usar谩 en la hoja de excel. Es decir s贸lo se ejecuta en Visual Basic pero no me queda claro como usalro en la hoja de calculo.

Buscar utilidad en la Hoja de Excel
Funci贸n para utilizar comentarias de recomendaciones.
Evalua la Nota y da el comentario

Este curso es para aquel que no haya programado nunca, muy b谩sico
Deber铆an tratar ejemplos mas complejos de la vida diaria de una empresa y con mas contenido y que dure mas tiempo (2horas 驴?).

Este es un caso en el que elijo que hacer si eres mayor o menor de edad

Public Function edad1() As Integer

    Dim a帽o_nacimiento As Integer
    Dim edad As Integer
    Dim a
    Dim mayor_edad As String
    Dim b
    
    a帽o_nacimiento = InputBox("Digite su a帽o de nacimiento", "A帽o de nacimiento")
    edad = 2022 - a帽o_nacimiento
    a = MsgBox("Su edad es de " & edad, , "A帽os de edad")
    
    Select Case edad
        Case Is >= 18
            mayor_edad = "tienes que tener cuidado"
        Case Else
            mayor_edad = "solo toma juguito de naranja"
            
        End Select
    b = MsgBox("El consumo de alcohol es perjudicial para la salud, " & mayor_edad, , "Ley 42-01")
    
End Function

Cre茅 una subrutina para detectar peruanos:

Aqu铆 hice un c贸digo para ver si es par o no el n煤mero:

Public Function par(A As Integer) As String
Dim modulo As Double
modulo = A Mod 2
Select Case modulo
Case Is = 0
par = "Es par"
Case Else
par = "No es par"
End Select

End Function

隆Calculadora de IMC-脥ndice de Masa Corporal!, se aceptan observaciones-GRACIAS

Ahi va el reto

Public Function edad(A As Integer, B As Integer) As String

    Dim a帽os As Integer
    
    a帽os = A + B
    
    Select Case a帽os
        Case Is < 30
            edad = " menor"
        Case Is = 30
            edad = "Contemporaneos"
        Case Else
            edad = "Mayor"
            
        End Select
    
    
End Function

Considero ch茅vere el curso, pero es m谩s bien algo as铆 como un Curso de Excel B谩sico con Macros de VBA, mucha fundamentaci贸n, la cual no se aplica en el manejo de datos en una hoja.

A que generaci贸n perteneces?
![](

Quise hacer un peque帽o juego para adivinar un n煤mero aleatorio del 1 al 3

Public Function SC(Numero As Integer) As String
Dim a
Numero = InputBox(鈥淣um1鈥, 鈥淎divina el n煤mero de 1 al 3鈥)
Random = Int((rnd * 3) + 1)

Select Case Numero
Case Is < Random
SC = "Perdiste, " & "el n煤mero escondido era: " & Random
Case Is = Random
SC = 鈥溌ANASTE!鈥 & "el n煤mero escondido era: " & Random
Case Else
SC = "Perdiste, " & "el n煤mero escondido era: " & Random

a = MsgBox(SC)

End Select
End Function

ASIGNAR MACRO A UN BOTON
Desarrollamos el mismo ejercicio de la clase aplicando una subrutina y luego lo asignamos a un BOTON. Insertamos los numeros ingresados y el resultado de la suma en la hoja1.

Comparto mi ejercicio de Select Case para saber si un numero es par o impar

Comparto un c贸digo para calcular cu谩l es el impuesto y salario neto mensual, de acuerdo a los tramos de la escala salarial en Rep煤blica Dominicana: ![](https://static.platzi.com/media/user_upload/image-fef4b960-14c2-4b98-b1f8-371f64461dd5.jpg)
'IsPAr :)
Public Function IsPar(num As Integer) As String
    Dim par As Integer
    par = num Mod 2
    Select Case par
        Case Is = 0
            IsPar = "Es par"
        Case Else
            IsPar = "No es par"
    End Select
End Function

Comparto mi ejercicio.
En este caso realic茅 una simulaci贸n de la nota promedio requerida para aprobar una Materia con 3 casos distintos:

  1. Nota promedio < 6 (Reprobado)

  2. Nota promedio < 9, > 6 (Aprobado)

  3. Nota Promedio > 9 (Exelente)

Comparto Visualizaci贸n mi Macro con el uso de Select Case, donde se califica las notas para aprobar el curso.

Public Function SC(A As Integer) As String

Dim Suma As Integer
Suma = A

Select Case Suma
    Case Is < 12
        SC = "Es un ni帽o"
    Case 12 To 21
        SC = "Es adolescente" 
    Case Is > 21
        SC = "Es un adulto"
End Select

End Function

Yo realice una calculadora de tipo imc


El resultado lo hice por medio de un msgbox

![](https://static.platzi.com/media/user_upload/image-900b6518-ef2a-4de7-8ce5-9a4c4ecace9f.jpg)
Por s铆 tienen problemas con las macros, en donde les manda un mensaje que no est谩n habilitadas: Para habilitar macros en Excel, debes cambiar la configuraci贸n de seguridad de macros en las opciones de Excel. Aqu铆 te explico c贸mo hacerlo paso a paso: ### Habilitar Macros en Excel 1. **Abrir Excel**: * Inicia Excel y abre el libro en el que deseas habilitar las macros. 2. **Acceder a las Opciones de Excel**: * Haz clic en la pesta帽a **Archivo** (en versiones anteriores puede ser el bot贸n de Office). * Selecciona **Opciones** al final del men煤. 3. **Centro de Confianza**: * En la ventana de **Opciones de Excel**, selecciona **Centro de confianza** en el panel de la izquierda. * Haz clic en **Configuraci贸n del Centro de confianza**. 4. **Configuraci贸n de Macros**: * En la ventana del **Centro de confianza**, selecciona **Configuraci贸n de macros** en el panel de la izquierda. * Aqu铆 tienes varias opciones: * **Deshabilitar todas las macros sin notificaci贸n**: Bloquea todas las macros y no muestra ninguna notificaci贸n. * **Deshabilitar todas las macros con notificaci贸n**: Deshabilita las macros, pero muestra una notificaci贸n para habilitarlas cuando se abre un archivo que contiene macros. * **Deshabilitar todas las macros excepto las firmadas digitalmente**: Permite solo las macros que est谩n firmadas con un certificado digital de confianza. * **Habilitar todas las macros (no recomendado, puede ejecutarse c贸digo potencialmente peligroso)**: Habilita todas las macros sin ninguna restricci贸n. **No se recomienda** por motivos de seguridad. * **Confiar en el acceso al modelo de objeto de proyecto de VBA**: Esta opci贸n es para permitir que el c贸digo VBA acceda al modelo de objetos de VBA, generalmente no es necesario activarlo para la mayor铆a de las tareas con macros est谩ndar. 5. **Seleccionar la Configuraci贸n Deseada**: * Selecciona **Deshabilitar todas las macros con notificaci贸n** si deseas recibir una notificaci贸n cada vez que un archivo con macros se abra, permiti茅ndote decidir si habilitarlas. * Si conf铆as plenamente en los archivos que vas a abrir y deseas habilitar todas las macros, selecciona **Habilitar todas las macros (no recomendado, puede ejecutarse c贸digo potencialmente peligroso)**. 6. **Guardar Cambios**: * Haz clic en **Aceptar** para cerrar la ventana de configuraci贸n del Centro de confianza. * Haz clic en **Aceptar** nuevamente para cerrar las Opciones de Excel. ### Habilitar Macros para un Archivo Espec铆fico Si no deseas cambiar la configuraci贸n global de seguridad de macros, tambi茅n puedes habilitar macros solo para un archivo espec铆fico. 1. **Abrir el Archivo**: * Abre el archivo de Excel que contiene las macros. 2. **Habilitar Contenido**: * Si las macros est谩n deshabilitadas, Excel mostrar谩 una barra amarilla en la parte superior del archivo con un bot贸n que dice **Habilitar contenido**. * Haz clic en **Habilitar contenido** para permitir que las macros del archivo se ejecuten. ### Conclusi贸n Habilitar macros puede ser necesario para trabajar con funciones avanzadas y automatizaci贸n en Excel, pero es importante ser cauteloso debido a los riesgos de seguridad que pueden representar las macros maliciosas. Cambia la configuraci贸n solo si conf铆as en el origen de los archivos con macros.
Para hacerlo m谩s sencillo encontr茅 una funci贸n que hace el c谩lculo del residuo por el n煤mero que le marques: Mod X. En este caso la us茅 como Mod 2 para poder utilizar y ver si es Par o Impar. Les dejo la f贸rmula aqu铆: `Public Function SC_P_or_I(A As Integer, B As Integer, C As Integer) As String` ` ` ` Dim suma As Integer` ` ` ` suma = A + B + C` ` ` ` Select Case suma Mod 2` ` Case 0` ` SC_P_or_I = "Par"` ` Case 1` ` SC_P_or_I = "Impar"` ` End Select` `End Function`
En este caso me siento m谩s c贸modo con las f贸rmulas que ya trae Excel, pero es bueno saber hacerlo por medio del c贸digo tambi茅n, aunque ya le encontrar茅 un caso para usarlo. 驴Ustedes de qu茅 manera les gusta m谩s? ![](https://static.platzi.com/media/user_upload/image-4dea050a-e307-4b27-8c5e-ba44e1f32129.jpg)
![](https://static.platzi.com/media/user_upload/image-aae3539c-55da-452b-95e6-fe133c4749fb.jpg)
Quiero compartirles este codigo, trate de arrojar si es mayor o menor de edad, al parecer todo esta bien pero cuando evalua el 2022 o 2015 que ser铆a menor de edad aparece mayor de edad les agradezco y pueden deducir el error. Public Sub SC2() Dim Edad As Integer Dim a As String Dim r As String Dim result As String Edad = InputBox("Ingrese su a帽o de nacimiento", A帽o\_de\_nacimiento) r = 2024 - Edad Select Case r Case Is < 18 result = "Menor" Case Else result = "Mayor" End Select a = MsgBox("Eres " & result & " de edad") End Sub
Este fue el que hice jaja ```js Public Function nota(nota1 As Double, nota2 As Double, nota3 As Double, nota4 As Double) notafinal = (nota1 + nota2 + nota3 + nota4) / 4 Select Case notafinal Case Is >= 3 nota = "Aprovado" Case Else nota = "Reprovado" End Select End Function ```
Dim resultar As Integer resultar = (a + b) Mod 2 Select Case resultar Case Is = 0 tipodenume = "par" Case Else tipodenume = "impar" End Select End Function
Hola! Les dejo el c贸digo que implement茅 para este ejercicio. Me cost贸 un poco, ah铆 voy tomando el ritmo de este entendimiento:![](https://static.platzi.com/media/user_upload/image-d9e23fba-458b-4656-94d7-558ed9cff078.jpg)
```ts 'Para avaluadores' 'Ejercicio para verificar el resultado de un an谩lisis estad铆stico de 3 muestras esta dentro del rango permitido regulado por la resoluci贸n 620 de 2008 IGAC" 'Este rango menciona que si el resultado es mayor a 7.5% en el coeficiente de variaci贸n la muestra se debe ajustar' Public Function var(A As Double, B As Double, C As Double) As String A = InputBox("Ingrese el primer n煤mero") B = InputBox("Ingrese el segundo n煤mero") C = InputBox("Ingrese el tercer n煤mero") ' Calcular la media Dim prom As Double prom = (A + B + C) / 3 ' Calcular la suma de los cuadrados de las diferencias con la media Dim sumaCuadrados As Double sumaCuadrados = ((A - prom) ^ 2 + (B - prom) ^ 2 + (C - prom) ^ 2) ' Calcular la desviaci贸n est谩ndar Dim desviacionEstandar As Double desviacionEstandar = ((sumaCuadrados / 3) ^ 0.5) ' Calcular el coeficiente de variaci贸n Dim Coefvariacion As Double Coefvariacion = (desviacionEstandar / prom) * 100 ' Devolver el resultado como cadena de texto Select Case Coefvariacion Case Is <= 7.5 var = "Dentro del rango permitido = " & Coefvariacion Case Is > 7.5 var = "Fuera del rango permitido, revisar = " & Coefvariacion End Select End Function ```Si alguien lo puede revisar, gracias.
Hola! Les dejo mi ejemplo de funci贸n de Select Case para los permisos de edad en EEUU ![](https://static.platzi.com/media/user_upload/image-8f3b754d-92b5-4312-a328-419591813fcc.jpg) ![](https://static.platzi.com/media/user_upload/image-d4393acd-fc6e-433a-8ee2-007c4f1cf0c3.jpg)
![](https://static.platzi.com/media/user_upload/image-76edd9a0-75e2-439c-b6eb-31ce24c6e9bb.jpg)

馃槂

<' RETO PARA SABER SI ES MENOR O MAYOR DE EDAD

Public Function edad(a As Integer) As String
    Dim a帽os As Integer
    
    a帽os = a
    
    Select Case a帽os
        Case Is < 18
            edad = "Menor de edad"
        Case Else
            edad = "Mayor de edad"
    End Select
    
End Function
> 

calcular el % de cogs

!

Ejemplo de aprobacion del curso con select case:

Ejercicio ![](https://static.platzi.com/media/user_upload/image-7642341e-3e01-4a14-bc88-b80e8a9c6d39.jpg)
Para Evaluar si el resultado de las suma de 3 numeros es un numero Par o Impar![](https://static.platzi.com/media/user_upload/image-f2b8519b-8e2a-4430-94b8-8c4ffb366997.jpg)
![](https://static.platzi.com/media/user_upload/image-31661239-9735-4586-9559-5ea230e12b74.jpg)

Ah铆 esta mi ejemplo que asigna a un grupo poblacional por un rango de edad.

Comparto mi ejercicio que consiste en simular echar una moneda al aire y aleatoriamente indicar si cae cara o sello. ![](https://static.platzi.com/media/user_upload/image-d1196c9e-c560-4a86-a9ab-50c862c9570b.jpg)
Aporte de ejercicio tema Select Case ![](https://static.platzi.com/media/user_upload/image-9f6b9834-c350-477b-9a36-607a90bfdb0f.jpg)
Comparto un c贸digo para calcular cu谩l es el impuesto y salario neto mensual, de acuerdo a los tramos de la escala salarial en Rep煤blica Dominicana: ```txt Public Function ISR() As Single Dim salario_mensual As Single Dim salario_anual As Single Dim salario_neto As Single Dim impuesto As Single Dim b salario_mensual = InputBox("Digite su salario mensual", "Salario mensual") salario_anual = Format(salario_mensual * 12, "#,##0") Select Case salario_anual Case Is <= 416220 impuesto = 0 Case 416220.01 To 624329 impuesto = (salario_anual - 416220.01) * 0.15 Case 624329.01 To 867123 impuesto = (salario_anual - 624329.01) * 0.2 + 31216 Case Else impuesto = (salario_anual - 867123.01) * 0.25 + 79776 End Select salario_neto = (salario_anual - impuesto) / 12 impuesto_mensual = impuesto / 12 b = MsgBox("Tu salario bruto es " & Format(salario_mensual, "#,##0.00") & ", de impuesto te cobran " & Format(impuesto_mensual, "#,##0.00") & " y tu salario neto es " & Format(salario_neto, "#,##0.00") & ".", , "Salario neto") End Function ```Public Function ISR() As Single Dim salario\_mensual As Single Dim salario\_anual As Single Dim salario\_neto As Single Dim impuesto As Single Dim b salario\_mensual = InputBox("Digite su salario mensual", "Salario mensual") salario\_anual = Format(salario\_mensual \* 12, "#,##0") Select Case salario\_anual Case Is <= 416220 impuesto = 0 Case 416220.01 To 624329 impuesto = (salario\_anual - 416220.01) \* 0.15 Case 624329.01 To 867123 impuesto = (salario\_anual - 624329.01) \* 0.2 + 31216 Case Else impuesto = (salario\_anual - 867123.01) \* 0.25 + 79776 End Select salario\_neto = (salario\_anual - impuesto) / 12 impuesto\_mensual = impuesto / 12 b = MsgBox("Tu salario bruto es " & Format(salario\_mensual, "#,##0.00") & ", de impuesto te cobran " & Format(impuesto\_mensual, "#,##0.00") & " y tu salario neto es " & Format(salario\_neto, "#,##0.00") & ".", , "Salario neto") End Function
![](https://static.platzi.com/media/user_upload/image-f97f49fb-8d25-43fb-b7f3-20d0d3c57db6.jpg)

![](

Aqu铆 les dejo el codigo que hice, que indica si es hora de comer o no

Public Function eat(Hora As Integer) As String

    Select Case Hora
        Case Is = 5
            eat = "Hora de Desayunar"
        Case Is = 6
            eat = "Hora de Desayunar"
        Case Is = 7
            eat = "Hora de Desayunar"
        Case Is = 12
            eat = "Hora de Almorzar"
        Case Is = 13
            eat = "Hora de Almorzar"
        Case Is = 14
            eat = "Hora de Almorzar"
        Case Is = 19
            eat = "Hora de Cenar"
        Case Is = 20
            eat = "Hora de Cenar"
        Case Is = 21
            eat = "Hora de Cenar"
        Case Else
            eat = "No es Hora de Comer :("
        
    End Select
    
            

End Function
Public Function CheckLegalDrinkingAge() As Integer

    Dim birthYear As Integer
    Dim currentYear As Integer
    Dim drinkMessage As String

    On Error GoTo ErrorHandler
    birthYear = CInt(InputBox("Which year were you born in?"))
    
    currentYear = year(Now)
    CheckLegalDrinkingAge = currentYear - birthYear

    MsgBox "You are " & CheckLegalDrinkingAge & " years old.", vbInformation, "Age"

    Select Case CheckLegalDrinkingAge
        Case Is >= 19
            drinkMessage = "Go ahead!"
        Case Else
            drinkMessage = "Not today, young one!"
    End Select
    
    MsgBox "If you want to drink, " & drinkMessage, vbInformation, "Drinking Advice"
    Exit Function

ErrorHandler:
    MsgBox "Please enter a valid year.", vbExclamation, "Error"

End Function

Buen d铆a,

adjunto mi aporte

Public Function pares(A As Integer, B As Integer, C As Integer) As String
    Dim suma As Integer
    suma = A + B + C
    Select Case suma Mod 2
        Case Is = 0
        MsgBox ("la suma es par")
        Case Is = 1
        MsgBox ("la suma es impar")
    End Select
      
    
    
End Function

En mi caso elabor茅 una macro que identificara s铆 la suma de tres numeros enteros da como resultado un n煤mero par o impar.
Para conseguirlo utiliz茅 la funci贸n Mod para obtener el residuo de la divisi贸n del n煤mero obtenido de la suma entre 2. Con esto pude identificar dos casos, s铆 l residuo de la divisi贸n es 鈥1鈥, se refiere a un n煤mero impar, en caso de que el residuo de la divisi贸n sea 鈥0鈥, se trata de un n煤mero par.

Espero sea de utilidad compa帽eros.

Select Case es una estructura en Visual Basic que permite evaluar y manejar distintos casos de una variable en funciones o subrutinas. Cada caso se define mediante 鈥淐ase鈥 con condiciones espec铆ficas, como valores negativos, cero o positivos, y se ejecutan instrucciones correspondientes. Es crucial ser exhaustivo y considerar todos los posibles casos.

Hola! Realic茅 una funci贸n con lo aprendido en esta clase para mostrar la condici贸n de cada alumno al respecto con la nota de parcial, si promociona, aprueba o desaprueba el examen.

<
Public Function condi(nota_parcial As Integer) As String
    Dim a
    
    nota_parcial = nota_parcial
    
    Select Case nota_parcial
        Case Is >= 7
        condi = "Promociona"
        Case Is >= 4
        condi = "Aprobado"
        Case Is < 4
        condi = "Desaprobado"
    End Select
    
    a = MsgBox("隆Nunca pares de aprender!", , "ATR")
End Function> 

Usando la funci贸n en la hoja:

Apenas estoy aprendiendo, pero creo que voy muy bien 馃憣馃槑

Reto cumplido: Funcion que determine si un numero es par o impar

Public Function SC2(A As Integer) As String
   
Select Case A Mod 2
    
    Case Is = 0
        SC2 = "El n煤mero es par"
            
    Case Else
        SC2 = "El numero es impar"
        
   End Select



End Function

En este ejercicio quise que el usuario ingresara su a帽o de nacimiento, para ello coloque un InputBox de solicitud de ingreso del a帽o de nacimiento, luego se hace un c谩lculo de la edad del usuario que resultara de restar a la fecha actual el a帽o de nacimiento ingresado por el usuario, ya con ese valor de la edad , hacer un comparativo con SELECT CASE donde compare mi edad con la del usuario, y para cada caso que se pueda presentar un mensaje para cada caso con MsgBox, que dir谩 si es mayor , menor o somos de la misma edad :

Public Function ParoImpar(numero As Integer) As String
Dim resultado As Double
resultado = numero Mod 2
Select Case resultado
Case Is = 0
ParoImpar = "ES PAR"
Case Is > 0
ParoImpar = "ES IMPAR"
End Select

End Function

una funci贸n en BVA que nos da recomendaciones sobre llevar una vida ordenada en funci贸n de tu edad

Public Function Edad(a As Integer) As String

Dim b

'EdadInput = InputBox("Ingresa tu edad")
Select Case a
    Case Is > 32
        Edad = "Eres Mayor que yo "
    Case Is = 32
        Edad = "Tenemos la misma edad "
    Case Is < 32
        Edad = "Eres Menor que yo "
End Select
a = MsgBox(Edad, , "Edad")

End Function

Para saber si un n煤mero es par o impar:

Public Function PARIMPAR(num As Integer) As String

Dim residuo As Integer

residuo = num Mod 2

Select Case residuo
    Case Is = 0
        PARIMPAR = "Par"
        
    Case Is <> 0
        PARIMPAR = "Impar"

End Select

End Function

馃槂

Se me ocurri贸 generar condicionales a este programa de c谩lculo de prestaciones sociales. Valida salario integral y bonificaci贸n en caso de que el empleado trabaje el a帽o completo.

Increible es muy funcional

Public Sub JornadaLaboral()

Dim Jornada_Laboral As Double
Dim Value

Jornada_Laboral = InputBox("Por favor, ingrese el total de horas promedio por semana que usted trabaja", "Jornada Laboral")

Select Case Jornada_Laboral
    Case Is > 48
        Value = MsgBox("Por favor, verifique que le est茅n pagando sus horas extras y recargos. Su total fue de " & Jornada_Laboral & " horas. N煤mero mayor al que permite la Ley", , "Jornada Laboral")
    Case Is = 48
        Value = MsgBox("Su total de horas es de " & Jornada_Laboral & " . Usted trabaja las horas que por Ley son las establecidas", , "Jornada Laboral")
    Case Else
        Value = MsgBox("Usted solo trabaja " & Jornada_Laboral & " horas." & " En este caso es probable que su jornada laboral pactada sea diferente a la establecida por Ley ", , "Jornada Laboral")
        
End Select

End Sub

Le sufr铆 un poquito, hice un caso similar pero con string. Importante usar las " " en strings.

La verdad no veo en qu茅 caso aplicar esto, ni en qu茅 tipo de trabajo, pero igual me encanta el curso!!

Yo lo hice para determinar si un estudiante aprueba, reprueba o tiene que hacer examenes extras tomando en cuenta sus calificaciones.

Public Function paridad(A As Integer) As String

    Dim prueba As Integer
    prueba = A Mod 2
    
    
    Select Case prueba = 0
        Case True
            paridad = "Es par"
        Case False
            paridad = "Es impar"
    End Select

End Function

Aqu铆 us茅 tanto select case como inputbox. A alguien m谩s le pasa que los pop up messages se tardan un poco en cargar?

Les comparto mi codigo:

Public Sub Estatus()

    Dim a帽o As Integer
    Dim edad As Integer
    Dim m
    
    a帽o = InputBox("驴En que a帽o naciste?", "Licencia de conducir")
    edad = Year(Now) - a帽o
    Select Case edad
        Case Is < 18
            m = MsgBox("Aun no puedes obtener tu licencia")
        Case Else
             m = MsgBox("隆Ya puedes obtener la licencia!, visita licencia.cl y conoce los requisitos")
    End Select
    
End Sub

Hola a todos,
Hice algo simple, una funciona que te dice si apruebas o no, seg煤n tu nota final.

  • como saber si un numero es par o impar
' reto si saber si un numero es par o impar
Public Function impar(num As Integer) As String
    If num Mod 2 = 0 Then
        impar = "no es impar"
    Else
        impar = "es impar"
    End If
    
End Function

Ejercicio select case:

Hola a todos, les presento mi tarea usando Select Case 馃槂

Buena clase.

Public Function DDC() As String
Dim resultado As Double
Dim a As Double
Dim b As Double
Dim p As Double
Dim especificacion As Double

a = InputBox("Resultado obtenido", "Resultado")
b = InputBox("Resultado obtenido del duplicado", "Resultado duplicado")

p = (a + b) / 2
     
especificacion = InputBox("escribe la especificaci贸n del producto", , "Especificaci贸n del producto")

resultado = especificacion - p


    
Select Case resultado
    
    Case Is > 0
        DDC = "Fuera de especificaci贸n"
    Case Is <= 0
        DDC = "Dentro de especificaci贸n"
    
    
End Select

MsgBox (DDC)

End Function

Un c贸digo para saber si el resultado de un duplicado de laboratorio esta dentro o fuera de especificaci贸n m谩xima

Hola,comparto rutina para evaluar resultados en ventas:

Correg铆 mi reto

Buena tarde para todos, este es mi reto con la funci贸n Select Case

Una funci贸n para elegir una pel铆cula seg煤n la hora que se elija

Public Function pelicula(hora As Integer) As String

    Select Case hora
        Case Is <= 3
            pelicula = "Funcion 1"
        Case 4 To 7
            pelicula = "Funcion 2"
        Case 8 To 10
            pelicula = "Funci贸n 3"
        Case Else
            pelicula = "Funcion 4"
    End Select
    
End Function

Hice esta funci贸n para que me diga si es par o impar un n煤mero:

Public Function Espar(A As Integer) As String
    
    Dim Modu As Double
       
    Modu = A Mod 2
    
    Select Case Modu
    
     Case Is = 0
     
        Espar = "Es n煤mero par"
        
    Case Else
    
        Espar = "Es n煤mero impar"
        
    End Select
               
End Function

nostalgia, mi primer c贸digo de programaci贸n. Todo vuelve siempre a los comienzos. Te extra帽e Visual Basic 6.0 馃槂

Les dejo mi aporte usando todo lo del curso hasta ahora visto

<Public Function CheckSum() As String
    Dim N1 As Integer
    Dim N2 As Integer
    Dim N3 As Integer
    Dim Sum As Integer
    
    N1 = InputBox("Por favor, escribe el primer n煤mero:")
    N2 = InputBox("Por favor, escribe el segundo n煤mero:")
    N3 = InputBox("Por favor, escribe el tercer n煤mero:")
    
    Sum = N1 + N2 + N3
    
    Select Case Sum
        Case Is >= 0
            CheckSum = "La suma es mayor o igual que cero."
        Case Else
            CheckSum = "La suma es menor que cero."
    End Select
    
    MsgBox CheckSum
    
End Function
> 
Public Function SC(A As Integer, B As Integer, C As Integer)
    Dim suma As Integer
    sumar = A + B + C
    
    Select Case sumar
        Case Is < 0
            SC = "Negativo"
        Case Is = 0
            SC = "Cero"
        Case Else
            SC = "Positivo"
    End Select
End Function

En mi caso opte por realizar una funci贸n, que me permita verificar la antig眉edad apartir de una fecha, les comparto el c贸digo:

Public Function Antiguedad(Fecha As Date, Medida As String)

If Medida = 鈥淒铆as鈥 Then

Antiguedad = DateDiff(鈥淒鈥, Fecha, Date)

Else

If Medida = 鈥淢eses鈥 Then

Antiguedad = DateDiff(鈥淢鈥, Fecha, Date)

Else

If Medida = 鈥淎帽os鈥 Then

Antiguedad = DateDiff(鈥淵YYY鈥, Fecha, Date)

End If

End If

End If

End Function

'hallar tres numeros consecutivos que sumados den un numero en especifico
Public Function check(a As Integer)
Dim n As Integer
Dim b As Single
n = (a - 3) / 3
b = n + n + 1 + n + 2

Select Case a
    Case Is = b
        check = "Los numeros son " & n & ", " & n + 1 & " y " & n + 2
    Case Else
        check = "No tiene"
End Select      

End Function

Para el ejercicio que realic茅 tuve que cambiar el tipo de dato para las variables ya que me mostraba error de desbordamiento.

Public Function PAR(A As Integer, B As Integer) As String

    Dim op As Integer
    
    op = (A + B) Mod 2
    
    Select Case op
        Case Is = 0
            PAR = "Par"
        Case Else
            PAR = "Inpar"
    End Select

End Function

Quise jugar un poco con lo aprendido e hice esta funci贸n que arroja resultado si podemos entrar o no alg煤n sitio con base en nuestra edad.

Public Function IngresoPermitido()

    Dim edad As Integer
    Dim visitante As Integer
    
    visitante = InputBox("Ingrese su edad actual: ", "Edad del visitante")
    
   Select Case visitante
    Case Is < 18
        IngresoPermitido = "No tiene ingreso permitido por ser menor de edad"
    Case Else
        IngresoPermitido = MsgBox("Usted es mayor de edad, puede ingresar, Bienvenido!")
    End Select
    
    
End Function