Buscar

Converter Segundos em Horas, minutos e segundos (Modificada)

Código

{ Nesta forma já impede a inserção de valores negativos, além de suportar um valor maior de entrada de segundos. }

function SegundosToTime( Segundos : Cardinal ) : String;
var
  Seg, Min, Hora: Cardinal;
begin
  Hora := Segundos div 3600;
  Seg := Segundos mod 3600;
  Min := Seg div 60;
  Seg := Seg mod 60;

  Result := FormatFloat(',00', Hora) + ':' +  
  FormatFloat('00', Min) + ':' +
  FormatFloat('00', Seg);
end;


Exemplo de uso:
  ShowMessage( SegundosToTime(87543) );

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Data e hora
Adicionada dia: 06/01/11
Por: Giovani Da Cruz
Visualizada: 7025 vezes

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