VBA Variable de fecha

Ya hemos repasado lo que son las variables, los tipos de datos y las constantes, en nuestro tutorial Tipos de datos VBA – Variables y constantes. En este tutorial, vamos a cubrir cómo declarar una variable como una fecha. En VBA, el tipo de datos de fecha se almacena como un decimal. Tanto las fechas como las horas pueden ser almacenadas en este tipo de datos. El tipo de datos de fecha de VBA puede almacenar valores que van desde el 1 de enero de 100 hasta el 31 de diciembre de 9999.

Variable de fecha VBA

Se declara una variable como una fecha utilizando la palabra clave Dim:

Dim fecha1 As Date

Luego puede asignar una fecha a la variable de fecha. Hay múltiples formas de generar fechas para asignar a las variables:

Asignar el día de hoy a la variable

La función Date devolverá la fecha de hoy:

Sub declararHoy()
    Dim hoy
    hoy = Date
End Sub

Asignar Ahora a la Variable

La función Now devolverá la fecha de hoy y la hora actual:

Sub declararAhora()
    Dim ahora
    ahora = Now
End Sub

Asignar Hora a la Variable

La función time devolverá la hora actual:

Sub declararHora()
    Dim hora
    hora = Time
End Sub

Asignar una fecha a una variable con DateSerial

La función DateSerial  devolverá una fecha basada en una entrada de año, mes y día:

Sub declararFechaSerial()
    Dim dsFecha
    dsFecha = DateSerial(2010, 11, 11)
End Sub

Asignar una hora a una variable con TimeSerial

La función TimeSerial  devolverá una hora, basada en una entrada de hora, minutos y segundos:

Sub declararHoraSerial()
    Dim tsHora
    tsHora = TimeSerial(10, 10, 45)
End Sub

Debe encerrar las fechas con el signo # o » cuando las utilice en su código, como se muestra a continuación:

Función VBA DateValue

La función DateValue puede utilizarse para inicializar una fecha. El siguiente código se puede utilizar para inicializar una fecha en VBA:

MsgBox DateValue("1/1/2010")

Función VBA TimeValue

La función TimeValue genera una hora:

MsgBox TimeValue("21:30:57")

Ejemplo de Variable de Fecha VBA de Excel

Este procedimiento demuestra cómo crear variables de fecha, asignarles valores y darles salida en una hoja de cálculo de Excel:

Sub declarandoVariableTipoFecha()
 
    Dim fecha1 As Date
    Dim fecha2 As Date
     
     
    fecha1 = #1/1/2019#
    fecha2 = "1/2/2019"
     
    Range("A1").Value = fecha1
    Range("A2").Value = fecha2
 
End Sub

El resultado es:

Puede aprender más sobre las funciones de fecha en este tutorial.

Variable de fecha VBA en Access

La variable de fecha funciona exactamente igual en Access VBA que en Excel VBA. Este procedimiento demuestra cómo crear una variable de fecha y actualizar un campo en una tabla de Access con el valor.

Sub DeclarandoVariableComoFecha()
   Dim fecha As Date
   fecha = #05/10/2020#
   DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & fecha & "# WHERE JobNo = 6"
End Sub