How to Use TimeValue Function in VBA (With Example)

You can use the TimeValue function in VBA to return the time value from a given string.

Here is one common way to use this function in practice:

Sub GetTimeValue()
    
Dim i As Integer

For i = 2 To 7
    Range("B" & i) = TimeValue(Range("A" & i))
Next i
    
End Sub

This particular macro will extract the time value from the datetimes in the range A2:A7 and return this time value in the corresponding range of B2:B7.

The following example shows how to use this syntax in practice.

Example: How to Use TimeValue Function in VBA

Suppose we have the following column of datetimes in Excel:

Suppose we would like to extract the time from each datetime in column A and display it in column B.

We can create the following macro to do so:

Sub GetTimeValue()
    
Dim i As Integer

For i = 2 To 7
    Range("B" & i) = TimeValue(Range("A" & i))
Next i
    
End Sub

When we run this macro, we receive the following output:

Column B shows the time value for each datetime in column A.

For example:

• The TimeValue function returns 10:15:34 AM from 1/1/2023 10:15:34 AM
• The TimeValue function returns 12:34:18 PM from 1/3/2023 12:34:18 PM
• The TimeValue function returns 8:23:00 AM from 1/5/2023 8:23:00 AM

And so on.

Note: You can find the complete documentation for the TimeValue function in VBA here.

Additional Resources

The following tutorials explain how to perform other common tasks in VBA:

How to Compare Dates in VBA
How to Insert a Timestamp Using VBA
How to Format Time in VBA