Convert seconds to compound duration: Difference between revisions

</pre>

=={{header|Batch File}}==

<lang dos>@echo off

::The Main Thing...

for %%d in (7259 86400 6000000) do call :duration %%d

exit/b 0

::/The Main Thing.

::The Function...

:duration

set output=

set /a "wk=%1/604800,rem=%1%%604800"

if %wk% neq 0 set "output= %wk% wk,"

set /a "d=%rem%/86400,rem=%rem%%%86400"

if %d% neq 0 set "output=%output% %d% d,"

set /a "hr=%rem%/3600,rem=%rem%%%3600"

if %hr% neq 0 set "output=%output% %hr% hr,"

set /a "min=%rem%/60,rem=%rem%%%60"

if %min% neq 0 set "output=%output% %min% min,"

if %rem% neq 0 set "output=%output% %rem% sec,"

if %1 gtr 0 echo %1 sec = %output:~1,-1%

goto :EOF

::/The Function.</lang>

{{Out}}

<pre>

7259 sec = 2 hr, 59 sec

86400 sec = 1 d

6000000 sec = 9 wk, 6 d, 10 hr, 40 min

=={{header|Perl 6}}==

The built-in <code>polymod</code> method (which is a generalization of the <code>divmod</code> function known from other languages), is a perfect match for a task like this:

<lang perl6>sub compound-duration ($seconds) {

($seconds.polymod(60, 60, 24, 7) Z <sec min hr d wk>)

.grep(*[0]).reverse.join(", ")

}

# Demonstration:

for 7259, 86400, 6000000 {

say "{.fmt: '%7d'} sec = {compound-duration $_}";

}</lang>

{{out}}

<pre>

7259 sec = 2 hr, 59 sec

86400 sec = 1 d

6000000 sec = 9 wk, 6 d, 10 hr, 40 min

</pre>