Ayuda: función HH:MM:SS

[[egostar]]

Pienso que seria mejor hacer esto,

Código Delphi [-]
function ConverTime(Seconds: Integer): string;
begin
  Horas   := Seconds div 3600;
  Minutos := (Seconds - (Horas*3600)) div 60;
  Segundos := (Seconds - (Horas*3600)) mod 60;
  Result:= IntToStr(Horas)+':'+Format('%.*d',[2,Minutos])+':'+Format('%.*d',[2,Segundos]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ConverTime(40000));
end;

Salud OS

[ixMike]

Empezado por egostar

Pienso que seria mejor hacer esto

Ya, a eso me refería con lo del Format, pero la que ha expuesto dec viene al dedillo, ya que el tipo TDateTime no es más que un float donde la unidad es un día, así:

una hora = 1/24
un minuto = 1/(24*60)
un segundo = 1/(24*60*60)
un mes = 30

y así...

[[egostar]]

Empezado por ixMike

Ya, a eso me refería con lo del Format, pero la que ha expuesto dec viene al dedillo, ya que el tipo TDateTime no es más que un float donde la unidad es un día, así:

una hora = 1/24
un minuto = 1/(24*60)
un segundo = 1/(24*60*60)
un mes = 30

y así...

Si, pero le veo un pequeño detalle, que pasa si la cantidad de segundos sobrepasa las 24 horas

Salud OS

[dec]

Hola,

Bien apuntado egostar. A mí me pareció muy elegante la solución (ya he dicho que la encontré, no es "mía") pero, me temía que habría implicaciones... y todavía creo que podría haber más. Creo que habría que esperar a que quien inició el hilo comente algo a todo esto.

[[egostar]]

Empezado por dec

Hola,

Bien apuntado egostar. A mí me pareció muy elegante la solución (ya he dicho que la encontré, no es "mía") pero, me temía que habría implicaciones... y todavía creo que podría haber más. Creo que habría que esperar a que quien inició el hilo comente algo a todo esto.

Yo se amigo Dec, y en verdad que eso soluciona cualquier problema sin tanto rollo y efectivamente es elegante, pero ya sabes como soy siempre veo el lado malo de las cosas

Como dices, habrá que esperar al aludido para que nos diga

Salud OS

[ixMike]

Empezado por egostar

Si, pero le veo un pequeño detalle, que pasa si la cantidad de segundos sobrepasa las 24 horas

Salud OS

Bueno, en ese caso, el detalle sería mostrar los días, ¿no?

Vamos, al menos yo lo haría así en mis aplicaciones. Pero eso ya sería entrar en cuestión de gustos...

[MaMu]

SOLUCIONADO

Utilice este procedimiento:

Código Delphi [-]
function ConverTime(Seconds: Integer): string;
var Horas,Minutos,Segundos:integer;
begin
  Horas   := Seconds div 3600;
  Minutos := (Seconds - (Horas*3600)) div 60;
  Segundos := (Seconds - (Horas*3600)) mod 60;
  Result:= Format('%.*d',[2,Horas])+':'+Format('%.*d',[2,Minutos])+':'+Format('%.*d',[2,Segundos]);
end;

Con respecto a los dias, no los necesito, puesto a que por otro lado, el ingreso de datos esta limitado a un máximo de 24hs.

Saludos

[[egostar]]

Empezado por mamu

Con respecto a los dias, no los necesito, puesto a que por otro lado, el ingreso de datos esta limitado a un máximo de 24hs.

En ese caso, la mejor opción es la que mostró nuestro amigo dec, sin tantas vueltas

Yo me complique la vida, pensando que pudiese haber cantidades mayores a 24 horas, por lo que usar TimetoStr() no iba a ser correcto y esto por el número de segundos que colocaste en tu primer intervención.

tiempototal:=125487770;

Salud OS

[MaMu]

Empezado por egostar

En ese caso, la mejor opción es la que mostró nuestro amigo dec, sin tantas vueltas

Yo me complique la vida, pensando que pudiese haber cantidades mayores a 24 horas, por lo que usar TimetoStr() no iba a ser correcto y esto por el número de segundos que colocaste en tu primer intervención.

tiempototal:=125487770;

Salud OS

Sin embargo, si convierto un valor de hora 0, la función TimeToStr, me devuelve 12:XX:XX:xm, y como lo estoy usando para la duración de archivos de audio, tampoco me interesa el AM/PM. Ojo, he probado una y otra vez, y siempre me pasa lo de las 12hs.

[keyboy]

¿Se han fijado en el código de TimeToStr?

Bye