Gruppe
DatumZeit
Problem
Es soll mit Werten im Zehntausendstelsekundenbereich gerechnet werden.
StandardModule: basMain
Function SpecTime(sTxt As String)
Const DIV As Long = 86400
Dim dValue As Double
dValue = CInt(Right(sTxt, 4)) / 1000 / DIV
dValue = dValue + CInt(Mid(sTxt, 4, 2)) / (DIV / 60)
dValue = dValue + CInt(Left(sTxt, 2)) / (DIV / 60 / 60)
SpecTime = dValue
End Function