Función TimeValue en VBA

La Función Timevalue permite ingresar la hora en la celda activada o en la celda que nosotros seleccionemos, lo cual nos permitirá automatizar el ingreso de la hora que deseemos registrar en nuestra hoja Excel.

Sintaxis de la Función:

TimeValue( hora )

El argumento de la hora requerido suele ser una expresión que representa una hora de 0:00:00 (12:00:00 a.m.) a 23:59:59 (11:59:59 p.m.). Sin embargo, la hora también puede ser cualquier expresión que represente una hora de dicho intervalo. Si la hora contiene un valor Nulo, se devuelve Nulo.

 

Ejemplos de la Función TimeValue

-Se desea una macro que cuando la active, me registre la hora actual en la celda activada.

Sub Hora()

ActiveCell.FormulaR1C1 = TimeValue((Now))

End Sub

-Se desea una macro que devuelva el valor de la hora es decir 9:07:00 AM en la celda D3

Sub Hora_1()

Range("D3").Select

ActiveCell.FormulaR1C1 = TimeValue(9.7)

End Sub

En el siguiente ejemplo de TimeValue se pasa como parámetro un texto que contiene una fecha.

Sub Hora_3()

ActiveCell.FormulaR1C1 = TimeValue("14:10:12")

End Sub

Descargar ejemplos mostrados: Función TimeValue en VBA