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