Formatted Milliseconds

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|481\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Variables

Jayenkai	Created : 15 April 2007 Edited : 15 April 2007 Language : Blitz Formatted Milliseconds Display the time in a series of ways.
A nice handy function. Takes a millisecond value, and a formatting string, and returns a neatly formatted string containing the time. A few examples are included. Easily expandable to include more formatted styles and other things, too. (But you're still limited to Blitz's 32 bit integers, so I'm not sure how many days you'd be able to count.) Graphics 640,480,0,2 SetBuffer BackBuffer() Start=MilliSecs() Repeat Cls Locate 0,0 Time=50 ;5/100ths of a second Print MillstoTime$(time,"$SS.$hh") Time=501000 ; 50 seconds Print MillstoTime$(time,"$SS.$hh") Time=50(100060) ; 50 minutes Print MillstoTime$(time,"$MM:$SS.$hh") Time=5(10006060) ; 5 hours, without seconds displayed Print MillstoTime$(time,"$HH:$MM") Time=MilliSecs() ; Apparently, the time that's passed since you turned on your PC, but wrapped onto a 32bit number, so if your PC's been on a few days, this'll be wrong. Print MillstoTime$(time,"$D days, $H hours, $M minutes and $S seconds") Time=MilliSecs()-Start ; The time this has been running Print MillstoTime$(time,"$MM:$SS.$hh") Flip Until KeyDown(1) Function MillsToTime$(millisec,Format$) out$=format$ ;xx (2 digit) formatted hundredth$=Right$("00"+((millisec/10) Mod 100),2) second$=Right$("00"+((MilliSec/1000) Mod 60),2) minute$=Right$("00"+((Millisec/(601000)) Mod 60),2) hour$=Right$("00"+((Millisec/(60601000)) Mod 24),2) day$=Right$("00"+((Millisec/(2460601000))),2) out$=Replace$(out$,"$DD",day$) out$=Replace$(out$,"$HH",hour$) out$=Replace$(out$,"$MM",minute$) out$=Replace$(out$,"$SS",second$) out$=Replace$(out$,"$hh",hundredth$) ;Unformatted hundredth$=((millisec/10) Mod 100) second$=((MilliSec/1000) Mod 60) minute$=((Millisec/(601000)) Mod 60) hour$=((Millisec/(60601000)) Mod 24) day$=((Millisec/(2460601000))) out$=Replace$(out$,"$D",day$) out$=Replace$(out$,"$H",hour$) out$=Replace$(out$,"$M",minute$) out$=Replace$(out$,"$S",second$) out$=Replace$(out$,"$h",hundredth$) Return out$ End Function --v

Comments
Sunday, 15 April 2007, 08:07
Jayenkai	Half an hour later I actually came across an annoyance with my own code, so I shoved $'s onto the formatting code. Should work a little better now! And I've just found that you can get about 24 days into the 32bit integer..
Sunday, 15 April 2007, 08:17
mike_g	And I've just found that you can get about 24 days into the 32bit integer I think that will do
Sunday, 15 April 2007, 18:49
HoboBen	Do a Cobra port, do a cobra port I might, actually, unless you want to/don't want me to. Have you got Cobra yet, Jay? Cheers
Sunday, 15 April 2007, 20:46
Jayenkai	I haven't bothered with Cobra yet, due to my overwhelming urge to never actually manage to complete anything! I'm sticking with Blitz, I think. Or at least, for a little while longer, anyway.

Formatted Milliseconds

Comments