guino
i found bug in builtin video player...
i found missing fregment...
hope it helps you saving time to find it...
[modXM]
Public Function getThisTime(ByVal timein As Long) As String
'Used to format the position and duration
On Error Resume Next
Dim conH As Integer
Dim conM As Integer
Dim conS As Integer
Dim remTime As Long
Dim strRetTime As String
remTime = timein / 1000
conH = Int(remTime / 3600)
remTime = remTime Mod 3600
conM = Int(remTime / 60)
remTime = remTime Mod 60
conS = remTime
If conH > 0 Then strRetTime = Format(conH, "00") & ":"
strRetTime = strRetTime & Format(conM, "00") & ":"
strRetTime = strRetTime & Format(conS, "00")
getThisTime = strRetTime
Exit Function
End Function



LinkBack URL
About LinkBacks




Reply With Quote

Bookmarks