Time2Real

Converts TIME code to number HH:MM to xx.xx
As in 10:15 to 10.25, 13:30 to 13.5

CodeFunctionName
What is this?

Public

Tested

Original Work
Function Time2Real(TimeCode)
For i = 1 To Len(TimeCode)
If Mid(TimeCode, i, 1) = ":" Then
hno = Left(TimeCode, i - 1)
mno = Mid(TimeCode, i + 1)
Exit For
End If
Next i
Time2Real = Val(hno) + (Val(mno) / 60)
End Function

Views 3,958

Downloads 1,309

CodeID
DB ID