Converts TIME code to number HH:MM to xx.xx
As in 10:15 to 10.25, 13:30 to 13.5
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
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,994
Downloads 1,338
CodeID
DB ID
ANmarAmdeen
626
Revisions
v1.0
Saturday
June
2
2018