| Overall | " || shrink_H(total_time) || " | 100.0 % | " || shrink_H(ave) || "")
trailer()
end
procedure range(start_tm,end_tm)
local ans
ans := cvtdate(end_tm) - cvtdate(start_tm)
return(ans)
end
procedure cvtdate(in)
local yr, mo, da, hr, min, out
in ?? Break("/") => yr || "/" || Break("/") => mo || "/" || Break(" ") => da || " " || Break(":") => hr || ":" || Break(":") -> min || ":"
out := julian(date_rec(yr,mo,da)) + hr / 24.0 + min / (24.0 * 60.0)
return(out)
end
procedure shrink(in)
local out
in ||:= "000000"
in ?? Len(6) => out
return(out)
end
procedure shrink_H(in)
local hund, hours, minutes
in ||:= "00"
in ?? Span(numer) => hours || Len(1) || Len(2) => hund
minutes := hund * 60 / 100
return( hours || " H " || minutes || " M")
end
procedure trailer()
write("")
# OUTPUT = 'Note: On May 20, I made the following calculation:
'
# OUTPUT = 'I started recording 5/5/17.
'
# OUTPUT = '5/15/17 added the category of dennisdarland.com, email, facebook, etc (d), which was previously included in music (m)
'
# OUTPUT = 'So:
'
# OUTPUT = '15 * m + 10 * d = 46
'
# OUTPUT = '5 * d = 20
'
# OUTPUT = 'giving:
'
# OUTPUT = 'd = 4
'
# OUTPUT = 'm = 0.4
'
# OUTPUT = '
'
# OUTPUT = 'NOTES:'
# OUTPUT = 'I expect that the time listening to music is at least an hour a day, and that the time on dennisdarland.com will drop when things slow doen.
'
# OUTPUT = 'I am using:
'
# OUTPUT = 'Abstract Spoon ToDo List to gather the data.
'
# OUTPUT = 'Then a snobol4 program I wrote to add percentages, averages and html formatting.
'
# OUTPUT = 'The snobol program is HERE.
'
write(" |