Convert seconds to compound duration: Difference between revisions
Convert seconds to compound duration (view source)
Revision as of 19:24, 7 September 2023
, 8 months ago→{{header|EasyLang}}
Line 1,556:
<syntaxhighlight lang="text">
proc split sec . s$ .
divs[] = [ 60 60 24 7 ]
n$[] = [ "sec" "min" "hr" "d" "wk" ]
len r[] 5
for i = 1 to 4
r[i] = sec mod divs[i]
sec = sec div divs[i]
.
r[5] = sec
s$ = ""
for i = 5 downto 1
if r[i] <> 0
if s$ <> ""
s$ &= ", "
.▼
s$ &= r[i] & " " & n$[i]▼
.
.▼
▲ s$ &= r[i] & " " & n$[i]
▲ .
▲ .
.
print s$
print s$
print s$
</syntaxhighlight>
|