Mega Code Archive

 

Categories / Delphi / Algorithm Math

 

Convert minutes in a days - hours - minutes format

function MinutesToDaysHoursMinutes(AMinutes: Integer): string; const HOURSPERDAY = 8; // wieviele Stunden hat der Tag? (Beispiel hier: 1 Arbeitstag) 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;