¿Cómo usar la función Year en VBA?

La función `Year` en VBA (Visual Basic for Applications) se utiliza para obtener el año de una fecha específica. Es una función muy útil cuando se necesita extraer solo el año de un valor de fecha.

Aquí tienes un ejemplo básico de cómo usarla:

Sub ObtenerAno()
    ' Declarar una variable de tipo Date
    Dim miFecha As Date
    
    ' Asignar una fecha específica a la variable
    miFecha = #12/31/2023#
    
    ' Usar la función Year para obtener el año de la fecha
    Dim ano As Integer
    ano = Year(miFecha)
    
    ' Imprimir el año en el panel de inmediato
    Debug.Print "El año es: " & ano
End Sub

Abrir el Editor de VBA: Presiona `ALT + F11` en Excel para abrir el Editor de VBA.
Insertar un Módulo: Ve a “Insertar” -> “Módulo” para crear un nuevo módulo.
Escribir el Código:
Ejecutar el Código: Puedes ejecutar este código presionando `F5` mientras estás en el Editor de VBA o desde el menú “Ejecutar” -> “Ejecutar Sub/UserForm”.

Explicación:

miFecha: Esta es la variable que contiene la fecha de la cual quieres obtener el año.
Year(miFecha): La función `Year` toma la variable `miFecha` como argumento y devuelve el año de esa fecha.
Debug.Print: Se utiliza para imprimir el resultado en la ventana “Inmediato”. Puedes abrir esta ventana presionando `CTRL + G` en el Editor de VBA.

Si deseas obtener el año de una fecha en una celda de Excel y mostrarlo en otra celda, el código cambiaría un poco:

Sub ObtenerAnoDesdeCelda()
    ' Suponiendo que tienes una fecha en la celda A1
    Dim miFecha As Date
    miFecha = Range("A1").Value
    
    ' Obtener el año de esa fecha y colocarlo en la celda B1
    Dim ano As Integer
    ano = Year(miFecha)
    
    Range("B1").Value = ano
End Sub

Este último ejemplo toma una fecha de la celda `A1` en Excel, extrae el año usando la función `Year`, y luego coloca el año en la celda `B1`. Asegúrate de tener una fecha válida en la celda `A1` para que el código funcione correctamente.

facebooklinkedin