37 lines
882 B
Text
37 lines
882 B
Text
'FreeBASIC version 1.05 32/64 bit
|
|
|
|
Sub Show(m As Long)
|
|
Dim As Long c(1 To 5)={604800,86400,3600,60,1}
|
|
Dim As String g(1 To 5)={" Wk"," d"," hr"," min"," sec"},comma
|
|
Dim As Long b(1 To 5),flag,m2=m
|
|
Redim As Long s(0)
|
|
For n As Long=1 To 5
|
|
If m>=c(n) Then
|
|
Do
|
|
Redim Preserve s(Ubound(s)+1)
|
|
s(Ubound(s))=c(n)
|
|
m=m-c(n)
|
|
Loop Until m<c(n)
|
|
End If
|
|
Next n
|
|
For n As Long=1 To Ubound(s)
|
|
For m As Long=1 To 5
|
|
If s(n)=c(m) Then b(m)+=1
|
|
Next m
|
|
Next n
|
|
Print m2;" seconds = ";
|
|
For n As Long=1 To 5
|
|
If b(n) Then: comma=Iif(n<5 Andalso b(n+1),","," and"):flag+=1
|
|
If flag=1 Then comma=""
|
|
Print comma;b(n);g(n);
|
|
End If
|
|
Next
|
|
Print
|
|
End Sub
|
|
|
|
#define seconds
|
|
|
|
Show 7259 seconds
|
|
Show 86400 seconds
|
|
Show 6000000 seconds
|
|
sleep
|