RosettaCodeData/Task/Convert-seconds-to-compound-duration/Run-BASIC/convert-seconds-to-compound-duration.basic
2023-07-01 13:44:08 -04:00

13 lines
377 B
Text

sec = 6000005
week = int(sec/60/60/24/7)
day = int(sec/60/60/24) mod 7
hour = int(sec/60/60) mod 24
minute = int(sec/60) mod 60
second = sec mod 60
print sec;" seconds is ";
if week > 0 then print week;" weeks ";
if day > 0 then print day;" days ";
if hour > 0 then print hour;" hours ";
if minute > 0 then print minute;" minutes ";
if second > 0 then print second;" seconds"