Foros Club Delphi - Convertir segundos a formato hora, minutos y segundos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Convertir segundos a formato hora, minutos y segundos (https://www.clubdelphi.com/foros/showthread.php?t=63278)

jafera

06-02-2009 17:36:57

Convertir segundos a formato hora, minutos y segundos

Buenas de nuevo, vuelvo a ver si alguien me puede echar un cable con este problema:

Necesito pasar el valor de la variable K la cual esta en segundos al formato HH:MM:SS.

Código:

 

procedure TF_Calculadora.JvXPButton2Click(Sender: TObject);

var

H,I: Ttime;

Hora, Minuto, Segundo, Msec: Word;

J,K,L: Double;

begin

        H:=StrToTime(MaskEdit2.Text);

        DecodeTime (H, Hora, Minuto, Segundo, Msec);

        J:=(Hora*3600)+(Minuto*60)+Segundo;

        K:=J*StrToFloat(JvValidateEdit2.text)/100;

 

        MaskEdit3.Text:=TimeToStr(I);

        MaskEdit4.Text:=MaskEdit2.Text+MaskEdit3.Text;

end;

Como siempre muchas gracias a todos los que nos ayudais

Josep

cmm07

06-02-2009 17:58:49

Lo tengo:

Código Delphi [-]function SegToFormatHour(Segundos: Integer): String;
var
horas,
minutos: Integer;
begin
  horas :=  Segundos div 3600;
  minutos := Segundos div 60 mod 60;
  segundos := Segundos mod 60;
  Result:= format('%02d:%02d:%02d', [horas, minutos, segundos]);
end;

ejemplo de uso:

Código Delphi [-]ShowMessage(SegToFormatHour(7200));
//Equivale a 2 horas.

pa la otra busca bien en google hay cientos de soluciones de este tipo :cool::o:D

54LU2

jafera

07-02-2009 22:13:45

Conversion de tiempos

Muchas gracias, problema solucionado.

Josep

La franja horaria es GMT +2. Ahora son las 10:59:12.