Mega Code Archive
How to convert minutes in a days hours minutes format
<![CDATA[
Title: How to convert minutes in a days / hours / minutes format
function MinutesToDaysHoursMinutes(AMinutes: Integer): string;
const
HOURSPERDAY = 8;
var
Days: Integer;
Hours: Integer;
Minutes: Integer;
begin
if (AMinutes 0) then
begin
Hours := AMinutes div 60;
Minutes := AMinutes mod 60;
Days := Hours div HOURSPERDAY;
Hours := Hours mod HOURSPERDAY;
end
else
begin
Hours := 0;
Minutes := 0;
Days := 0;
end;
Result := Format('%.2d:%.2d:%.2d', [Days, Hours, Minutes]);
end;
]]>