Buscar

Função transformar minutos p/ horas

Código

//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;

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%

Detalhes da dica

Categoria: Data e hora
Adicionada dia: 05/08/08
Por: Richard
Visualizada: 16032 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009