convert seconds to compound duration
Nov 19, 2020 18:22:44 GMT 1
Post by bigbass on Nov 19, 2020 18:22:44 GMT 1
I added this to the rosetta page for more details go there
for the task they asked for
rosettacode.org/wiki/Convert_seconds_to_compound_duration#BaCon
for the task they asked for
rosettacode.org/wiki/Convert_seconds_to_compound_duration#BaCon
Task
Write a function or program which:
takes a positive integer representing a duration in seconds as input (e.g., 100), and
returns a string which shows the same duration decomposed into:
weeks,
days,
hours,
minutes, and
seconds.
Write a function or program which:
takes a positive integer representing a duration in seconds as input (e.g., 100), and
returns a string which shows the same duration decomposed into:
weeks,
days,
hours,
minutes, and
seconds.
'--- SAY_TIME Convert seconds to compound duration
'--- Weeks, days hours, minutes ,seconds
SUB SAY_TIME(int sec)
LOCAL week,day,hour,minute,second TYPE int
week = sec / 604800
day = MOD(sec /86400,7)
hour = MOD(sec / 3600 ,24)
minute = MOD(sec / 60 ,60)
second = MOD(sec,60)
IF week > 0 THEN
PRINT STR$(week) & " wk, " TO p1$ SIZE 100
END IF
IF day > 0 THEN
PRINT STR$(day) & " d, " TO p2$ SIZE 100
END IF
IF hour > 0 THEN
PRINT STR$(hour) & " h, " TO p3$ SIZE 100
END IF
IF minute > 0 THEN
PRINT STR$(minute) & " min, " TO p4$ SIZE 100
END IF
IF second > 0 THEN
PRINT STR$(second) & " sec " TO p5$ SIZE 100
END IF
PRINT p1$ ,p2$, p3$, p4$, p5$
END SUB
'---9 wk, 6 d, 10 h, 40 min, 7 sec
SAY_TIME(6000007)
