
Originally Posted by
mixster
Also, mine is close enough to that Boreas

Not always
SCAR Code:
program New;
const trips=4;
timerunning=26952000;
function CalcTripTime(time, trips: Integer): string;
var
h, m, s: Integer;
begin
Writeln('meow');
h := Round((time / trips) / 3600000);
m := ((Round(time / trips) mod 3600000) / 60000);
s := ((Round(time / trips) mod 60000) / 1000);
Result := IntToStr(h) + ' hour(s), ' + IntToStr(m) + ' minute(s) and ' + IntToStr(s) + ' second(s)';
end;
{*******************************************************************************
function AvgTripTime(TimeMsecs,TripsDone:integer): String;
By: Based on Time Running from Phalanx's script/RsN
Description: Returns Average Time per Trip in Hours Minutes Seconds
*******************************************************************************}
function AvgTripTime(TimeMsecs,TripsDone:integer): String;
var
RHours, Minutes, Seconds, RMinutes, RSeconds: LongInt;
Time: string;
begin
Seconds := (TimeMsecs/TripsDone) div 1000;
Minutes := Seconds div 60;
RHours := Minutes div 60;
Time := IntToStr(Seconds) + ' Seconds';
if Minutes <> 0 then
begin
RSeconds := Seconds mod (Minutes * 60);
Time := IntToStr(Minutes) + ' Minutes and ' + IntToStr(RSeconds) +
' Seconds';
end;
if RHours <> 0 then
begin
RMinutes := Minutes mod (RHours * 60);
RSeconds := Seconds mod (Minutes * 60);
Time := IntToStr(RHours) + ' Hours, ' + IntToStr(RMinutes) +
' Minutes and ' + IntToStr(RSeconds) + ' Seconds';
end;
Result := Time;
end;
begin
writeln(AvgTripTime(timerunning,trips));
writeln(CalcTripTime(timerunning,trips));
end.