...convert minutes in a days / hours / minutes format?

Author: Marc Geldon
Homepage: http://www.proitsystems.de

Category: Math

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base