Converting time from text to time

[virgilwilsonjr]

I have a program that outputs time elapsed as a text format than a time format.

The fields are

Time Updated - 07:15:49.312
Lap Time - 00:13:29.312
Elapsed Time - 00:13:29.312



I would like to be able to add the lap times to get the elapsed time.

Thanks for any help you can give me.

[June7]

Need to get the time parts into same units. One way is to create a custom function:

Function GetLapTimeSeconds(strTime As String) As Double
Dim x As Variant
If strTime <> "" Then
x = Split(strTime, ":")
GetLapTimeSeconds = x(0) * 3600 + x(1) * 60 + x(2)
End If
End Function

Call that function in a query to convert the lap times into seconds. Sum that calculated field.

[virgilwilsonjr]

Sorry I'm a newbie with the more advanced topics with Access. How do I call a custom function in a query?

[June7]

Put the function code in a general VBA module. In query designer, create a field with expression. In this case the expression is a call to function:

ConvertLap: GetLapTimeSeconds([Lap Time])

An alternative to the function call is this expression I didn't think of earlier:

Left([Lap Time],2) * 3600 + Mid([Lap Time],4,2) * 60 + Mid([Lap Time],7)

[virgilwilsonjr]

Thanks for your help