Delphi dicas

Função transformar minutos p/ horas

//Função para transformar minutos em horas

//Ex: 90 min = 1:30



Function MinparaHora(Minuto: integer): string;

var

hr, min : Integer;

begin

        hr := 0;

        while minuto >= 60 do begin

                minuto := minuto - 60;

                hr := hr + 1;

        end;

        min := minuto;

        Result := FormatFloat('00:', hr) + FormatFloat('00', min);

end;