Here is a VBA function to solve your problem

Function TimeToNumber(InputTime As Date)
Dim num As Double

   num = Hour(InputTime) + Minute(InputTime) / 60 + Second(InputTime) / 3600
   TimeToNumber = num
End Function

You can probably also use a similar function in a query

hour([inputtime]+minute([inputtime])/60+second([inputtime])/3600

Please let me know if I can provide more assistance. I am sorry that I did
not respond in Spanish.