Function To Convert Miliseconds Into Readable Time

[SpookMeister]

I tried looking for this the other day, and couldnt find exactly what I was looking for so I wrote my own. I'm posting it here in the hopes that if no-one else needs it... well, at least I'll be able to find it again the next time I do

$begin = TimerInit()
Sleep(3000)
$dif = TimerDiff($begin)
$sTime = _TimeReadable($dif)
MsgBox(0, "Elapsed Time", $sTime)

Func _TimeReadable($mili)
    $TotalSeconds = Int($mili / 1000); convert miliseconds to seconds
    $Hours = Int($TotalSeconds / 3600); 3600 seconds in an hour
    $Minutes = Int(($TotalSeconds - ($Hours * 3600)) / 60); 60 secs per min
    $Seconds = $TotalSeconds - (($Hours * 3600) + ($Minutes * 60)); leftovers
    If $Hours < 10 Then $Hours = "0" & $Hours
    If $Minutes < 10 Then $Minutes = "0" & $Minutes
    If $Seconds < 10 Then $Seconds = "0" & $Seconds
    $FormattedTime = $Hours & ":" & $Minutes & ":" & $Seconds
    Return $FormattedTime
EndFunc  ;==>_TimeReadable

[jaenster]

nice , but i dont get the point of it.. you never use more then sleep(60000) (60 seconds) ..

but again , nice

[SpookMeister]

The whole top part was just to demonstrate. In my case I was creating a recording application, and I wanted to display how long the recording took.

Edited March 15, 2006 by SpookMeister

[Jos]

I tried looking for this the other day, and couldnt find exactly what I was looking for so I wrote my own. I'm posting it here in the hopes that if no-one else needs it... well, at least I'll be able to find it again the next time I do

$begin = TimerInit()
Sleep(3000)
$dif = TimerDiff($begin)
$sTime = _TimeReadable($dif)
MsgBox(0, "Elapsed Time", $sTime)

Func _TimeReadable($mili)
    $TotalSeconds = Int($mili / 1000); convert miliseconds to seconds
    $Hours = Int($TotalSeconds / 3600); 3600 seconds in an hour
    $Minutes = Int(($TotalSeconds - ($Hours * 3600)) / 60); 60 secs per min
    $Seconds = $TotalSeconds - (($Hours * 3600) + ($Minutes * 60)); leftovers
    If $Hours < 10 Then $Hours = "0" & $Hours
    If $Minutes < 10 Then $Minutes = "0" & $Minutes
    If $Seconds < 10 Then $Seconds = "0" & $Seconds
    $FormattedTime = $Hours & ":" & $Minutes & ":" & $Seconds
    Return $FormattedTime
EndFunc ;==>_TimeReadable

Isn't this the same as _TicksToTime() ?

[SpookMeister]

Sigh, leave it up to me to re-invent the wheel. Yeah, the same functionality is in _TicksToTime. I didn't even think to look at it.

[Lakes]

Sigh, leave it up to me to re-invent the wheel. Yeah, the same functionality is in _TicksToTime. I didn't even think to look at it.

I did similar here: http://www.autoitscript.com/forum/index.ph...opic=8492&st=15

[zaNergal]

If you need a nicely formatted time which include milliseconds (h:mm:ss.mmm):

 

  $ms = {wherever you get your milliseconds from} 

  $time = StringFormat("%d:%.2d:%06.3f", (Floor($ms / 3600000)), (Floor(Mod($ms,3600000) / 60000)), (Mod(Mod($ms,3600000),60000) / 1000))

 

[Melba23]

zaNergal,

Please look at the date of the threads before you post in future - this one dates from over 7 years ago.

M23