Convert seconds to compound duration: Difference between revisions
Convert seconds to compound duration (view source)
Revision as of 00:44, 14 September 2016
, 7 years agoAdded BBC BASIC
(Added BBC BASIC) |
|||
Line 455:
6000000 sec = 9 wk, 6 d, 10 hr, 40 min
</pre>
=={{header|BBC BASIC}}==
<lang bbcbasic>REM >compduration
PRINT FN_convert(7259)
PRINT FN_convert(86400)
PRINT FN_convert(6000000)
END
:
DEF FN_convert(seconds%)
LOCAL units%(), units$(), i%, unit%, compound$
DIM units%(4)
DIM units$(4)
units%() = 604800, 86400, 3600, 60, 1
units$() = "wk", "d", "hr", "min", "sec"
compound$ = ""
FOR i% = 0 TO 4
IF seconds% >= units%(i%) THEN
unit% = seconds% DIV units%(i%)
seconds% = seconds% MOD units%(i%)
compound$ += STR$(unit%) + " " + units$(i%)
IF i% < 4 AND seconds% > 0 THEN compound$ += ", "
ENDIF
NEXT
= compound$</lang>
{{out}}
<pre>2 hr, 59 sec
1 d
9 wk, 6 d, 10 hr, 40 min</pre>
=={{header|beeswax}}==
| |||