Tekst til tid i Access

ms-access har typen tidspunkt - altså med dato - der er ingen type i ms-access der alene betyder en tid på dagen.

Function fracU1899(tidstekst) 'hh:mm
    fracU1899 = CDate(val(Left(tidstekst, 2)) / 24 + val(Right(tidstekst, 2)) / 1440)
End Function

?fracu1899("16:30")
16:30:00