Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Convertir un número de segundos a horas, minutos y segundos - Delphi
Lenguaje de programación Borland Delphi

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;
Un ejemplo de utilización:
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

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A