Converter Minutos Para Horas

Fonte: www.activedelphi.com.br

Veja nesta dica uma simples função que retorna a quantidade de horas a partir de uma quantidade de minutos.

function MinutosEmHoras(Minutos: Integer): String;

var

  HoraDecimal, HH, MM: String;

begin

  if Minutos > 1440  then

    Minutos := Minutos - 1440;

  HoraDecimal := FormatFloat( '00.00', Minutos / 60 );

  HH := Copy( HoraDecimal, 1 , 2 );

  if Copy( HoraDecimal, 4, 5 )[1] = '0' then

    MM := '0' + IntToStr( Round( ( StrToInt( Copy( HoraDecimal, 4, 5 ) ) * 60 ) /100 ) )

  else

    MM := IntToStr( Round( ( StrToInt( Copy( HoraDecimal, 4, 5 ) ) * 60 ) /100 ) );

  Result :=  HH+ ':' + MM ;

end;

Para utilizá-la, faça:

  ShowMessage( MinutosEmHoras(480) );

  //retornará: '08:00'