|
creo recordar que hay una propiedad que te da los segundos
i luego haces este procedimiento i ya.
var t,h,m,s :integer;
begin
t := 3671;
m := t div 60;
h := m div 60;
m := m mod 60;
s := t mod 60;
showmessage(inttostr(t)+' segundos se transforman en '+inttostr(h)+' horas y +inttostr(m)+' minutos y '+inttostr(s)+' segundos');
Saludos
__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón).
|