En VBA, la función `Date` es un tipo de función incorporada que puedes usar para obtener la fecha actual del sistema. La función devuelve la fecha actual como un valor `Date`, que es un tipo de dato en VBA que almacena fechas y horas.

Aquí hay una forma simple de usar la función `Date` en VBA para recuperar y trabajar con la fecha actual:

Sub EjemploFechaActual()
    ' Declara una variable tipo Date para almacenar la fecha actual
    Dim FechaActual As Date
    
    ' Usa la función Date para obtener la fecha actual del sistema
    FechaActual = Date
    
    ' Muestra la fecha actual en un cuadro de mensaje
    MsgBox "La fecha actual es: " & FechaActual
End Sub

El código anterior declara una variable `FechaActual` de tipo `Date`, luego asigna a esa variable el valor retornado por la función `Date`. Después, muestra un cuadro de mensaje con la fecha actual.

También puedes usar la función `Date` directamente en una línea de código sin necesidad de declarar una variable para almacenar el valor:

Sub MostrarFechaActual()
    ' Muestra la fecha actual directamente en un cuadro de mensaje
    MsgBox "La fecha actual es: " & Date
End Sub

Es importante señalar que la función `Date` no toma ningún argumento y siempre devuelve la fecha del día en que se ejecuta el código.

También puedes usar la función `Date` en conjunto con otras funciones de fecha y hora en VBA, tales como `Year`, `Month` y `Day`, para extraer el año, el mes y el día de la fecha actual:

Sub DesglosarFechaActual()
    ' Usa la función Date para obtener la fecha actual del sistema
    Dim fecha As Date
    fecha = Date
    
    ' Extrae el año, mes y día de la fecha actual
    Dim year As Integer
    Dim month As Integer
    Dim day As Integer
    
    year = Year(fecha)
    month = Month(fecha)
    day = Day(fecha)
    
    ' Muestra los componentes de la fecha en un cuadro de mensaje
    MsgBox "Año: " & year & vbCrLf & _
           "Mes: " & month & vbCrLf & _
           "Día: " & day
End Sub

Este ejemplo muestra cómo obtener la fecha actual y luego extraer y mostrar el año, el mes y el día por separado.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto