Buscar

minutos para horas e horas para minutos

Código

//transforma hora para minuto
Function TFrelcadhor.HoraToMin(Hora: String): Integer;
begin
      Result := (StrToInt(Copy(Hora,1,2))*60) + StrToInt(Copy(Hora,4,2));
end;

//minutos para horas
function TFrelcadhor.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: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Data e hora
Adicionada dia: 04/08/10
Por: Deivdy Souza
Visualizada: 2227 vezes

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