Esta web utiliza 'cookies' propias y de terceros. Al navegar por nuestra web entendemos que aceptas el uso que hacemos de ellas. Más información.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Descargas
· Enciclopedia
· Estadísticas
· Foros
· Manuales, Artículos
· Nuestra historia
· Política de Cookies
· Quiénes somos
· Recomiéndanos
· Temas
· Top 10
· Trucos Delphi, PHP, Java, Visual Studio
· Tu cuenta


Código usuario (nick)

Contraseña

Nuevo usuario

English
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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+