Esta función en Delphi devuelve las horas, minutos y segundos correspondientes a los segundos pasados como parámetro.

procedure horasMinutosSegundos (numSegundos : integer; var horas, 
    minutos, segundos : integer);
begin
  horas := numSegundos div 3600;
  minutos := numSegundos div 60 mod 60;
  segundos := numSegundos mod 60;
end;

procedure TformMenuPrincipal.actEstadoBateriaExecute(Sender: TObject);
var
  horas, minutos, segundos : Integer;
begin
  horasMinutosSegundos(segundosRestantes, horas, minutos, segundos);
  txtTiempo.Text := format('%02d:%02d:%02d', [horas, minutos, segundos])
end;

Publicado el: 2005-08-07