TimeValue in Excel VS Access VBA

[Hasher]

Hi guys,
I was looking at some code in a database that I inherited. Seems the previous guy was trying to use TimeValue function to Convert a serial and this just throws up errors. In Excel this is the intended use. Could anyone tell me if there is a equivalent inbuilt function in MS access ?

This is the code I'm working with. Any help is appreciated

    Dim dblHoursWorked As Double    Dim dblOvertime As Double
    Dim intHoursWorked As Integer
    Me.txtOverTime = ""
    Me.txtDoubleTime = ""
    Me.txtOrdTime = ""
    
    
  If (Nz(Me.txtStartTime) <> "" And Nz(Me.txtFinishTime) <> "") Then
          intHoursWorked = DateDiff("h", Format(Me.txtStartTime, "HH:MM"), Format(Me.txtFinishTime, "HH:MM"))
          dblHoursWorked = (TimeValue(Format(Me.txtFinishTime, "HH:MM")) * 24) - (TimeValue(Format(Me.txtStartTime, "HH:MM")) * 24) - txtTimeOff

[John_G]

Hi -

There is a TimeValue function in A2010 (don't know about A2007), and it converts a time expression in a string to a time in a Date type.

I'm not sure you need that though. If dblHoursWorked is meant to show hours worked as decimal hours, you could use:

DateDiff("n", Format(Me.txtStartTime, "HH:MM"), Format(Me.txtFinishTime, "HH:MM")) / 60.0

But looking at the expression you have for dblHoursWorked, I don't see what it is doing.

HTH

John